:pinfo INNER-PROC-RESULT-NAME (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo COMPILE-TOP-LEVEL-DEFINE-STRUCTURE (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNNAMED-CALL-RESULT-NAME!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TREE-NSUBST-SCOPE-CONTROL-TRANSFER (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo CATCH-CONTROL-POINT-OUT-TYPE (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-RECEIVE-VAR!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-RECEIVE-VAR!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SKIP-TO-NEXT-FORM (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo INNER-PROC-VAR-INFO (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-VAR-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-C-TYPE-INFO-CONVERT-TO-C!@$ (S VALUE) NIL (C-TYPE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-TYPE-INFO-CONVERT-TO-C!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-CALL-INFO!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-VAR-OP-INNERMOST-PROC!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-INNERMOST-PROC!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-FUNCTION-CALL-ARGS!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-FUNCTION-CALL-TAIL?!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COMF-FINISH NIL NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-MACHINE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ANALYZE-DYNAMIC-BLOCK (NAME BODY MV-HOLDER) NIL NIL NIL NIL NIL NIL T
:pinfo NAMED-LOCAL-RESULT-NAME (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo COLLECT-SPECIALS (VAR-LIST) NIL NIL NIL NIL NIL NIL T
:pinfo SCOPE-CONTROL-POINT-PARENT (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo FLUID-UNNAMED-CALL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-TRANSFER-OUT-TYPE!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo COMPILER-METHOD-META-EVAL-FUNCTION (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-META-EVAL-FUNCTION (STRUCTURE-ELT S 7))) NIL T T
:pinfo TAG-CONTROL-TRANSFER-LINE (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-REFS!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-LIBRARY-DIRECTORY!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-DIRECTORY!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-FOREIGN-CALL-NAME!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-CONTROL-TRANSFER-TAIL?!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-FUNCTION-INFO-META-EVAL-ARG-TYPES!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-META-EVAL-ARG-TYPES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-C-STRUCT-OP-INFO!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo UNNAMED-CALL-NAME (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo SWITCH-DEFAULT (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-DEFAULT (STRUCTURE-ELT S 10))) NIL T T
:pinfo FLUID-PRIMITIVE-CALL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LEX-ENV-OUTERMOST-FORM!@$ (S VALUE) NIL (LEX-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LEX-ENV-OUTERMOST-FORM!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-FOREIGN-INFO-META-EVAL-ARG-TYPES!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-META-EVAL-ARG-TYPES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo RESULT-VAR-NAME (RVAR) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-SWITCH/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME INLINE-TEST? TEST KEYS CONSEQUENTS DEFAULT) NIL NIL NIL NIL NIL NIL T
:pinfo SCOPE-CONTROL-TRANSFER-SEND-VALUE (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-SEND-VALUE (STRUCTURE-ELT S 8))) NIL T T
:pinfo LOAD-LOGICAL-PATHNAMES NIL NIL NIL NIL NIL NIL NIL T
:pinfo ADD-PROC-DEFINITION (NAME BODY FUNCTION SOURCE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BRANCH-OUT-TYPE!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo C-TYPE-INFO-CONSTANT-TO-C (S) NIL (C-TYPE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-TYPE-INFO-CONSTANT-TO-C (STRUCTURE-ELT S 5))) NIL T T
:pinfo FUNCTION-CALL-INFO (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-C-STRUCT-DEF-RESULT-NAME!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo BRANCH-MV-HOLDER (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo MAKE-FUNCTION-CALL/8 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-FOREIGN-CALL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo CONTROL-TRANSFER-TAIL? (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo COPY-C-STRUCT-OP (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-DEF-MV-HOLDER!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-UNWIND-PROTECT-PROTECTED-FORM!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-PROTECTED-FORM!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FLUID-VAR-REF-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-SLOT-TYPE!@$ (S VALUE) NIL (C-STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-SLOT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-INNER-PROC-VAR-INFO!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-VAR-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo TREE-NSUBST-FUNCTION-CALL (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-C-NAME!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-C-NAME!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-LINE!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo COPY-CONFIG (S) NIL NIL NIL NIL NIL NIL T
:pinfo UNNAMED-CALL-MV-HOLDER (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo INNER-PROC-FUNARG-REFS (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-FUNARG-REFS (STRUCTURE-ELT S 12))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-DECLS-FTYPES!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-FTYPES!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FLUID-BASIC-OPTIONAL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ADD-EXTERNAL-PROC (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-OPTIONAL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo UNWIND-PROTECT-TAIL? (S) NIL (UNWIND-PROTECT) NIL (LAMBDA (S) (DECLARE) (BLOCK UNWIND-PROTECT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo CLEAR-TREE-LEAVES-TAIL-SLOTS (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-CALL-NAME (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-COMPILER-METHOD-OUTS!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-OUTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FLUID-APPLICATION-SYMBOL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROC-NAME!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-CONFIG-FOLD-CONSTANTS?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-FOLD-CONSTANTS?!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-FUNCTION-CALL-MV-HOLDER!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PROCLAIM-INLINE-FUNCTION (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INNER-PROC-NAME!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo C-TYPE-INFO-C-TYPE (S) NIL (C-TYPE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-TYPE-INFO-C-TYPE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-COMPILER-METHOD-META-EVAL-ARG-TYPES!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-META-EVAL-ARG-TYPES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-VARIABLE-INFO-NAME!@$ (S VALUE) NIL (VARIABLE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo EMIT-CONFIGURATION-INFO NIL NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-SYMBOL-NAME (S) NIL (FOREIGN-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-SYMBOL-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-RECEIVE-VAR!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-RECEIVE-VAR!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo FUNCTION-AND-METHOD-INFO-NAME (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo LOOKUP-TAG (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo VARIABLE-VAR-NUM-DEFS (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-NUM-DEFS (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-SCOPE-CONTROL-TRANSFER-MV-HOLDER!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FUNCTION-AND-METHOD-INFO-OUT-TYPES (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-OUT-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo SCOPE-CONTROL-POINT-NAME (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo C-COMPILER-DEBUG-SWITCH (S) NIL (C-COMPILER) NIL (LAMBDA (S) (DECLARE) (BLOCK C-COMPILER-DEBUG-SWITCH (STRUCTURE-ELT S 2))) NIL T T
:pinfo PROC-OUT-TYPE (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo INNER-PROC-OE-VAR (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-OE-VAR (STRUCTURE-ELT S 13))) NIL T T
:pinfo MVALUES-TAIL? (S) NIL (MVALUES) NIL (LAMBDA (S) (DECLARE) (BLOCK MVALUES-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-C-CODE-TAIL?!@$ (S VALUE) NIL (C-CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-CODE-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FOREIGN-INFO-META-EVAL-FUNCTION (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-META-EVAL-FUNCTION (STRUCTURE-ELT S 7))) NIL T T
:pinfo PRIMITIVE-CALL-TAIL? (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-UNNAMED-CALL-SPREAD-ARGS?!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-SPREAD-ARGS?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo COPY-OPTIONAL (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SWITCH-RESULT-NAME!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-LIBRARY-INIT-THUNK!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-INIT-THUNK!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-REFS (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo COMPILE-TOP-LEVEL-DEFINE-C-TYPE-NAME (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo TOP-LEVEL-PROC-VARS-TO-DECLARE (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-VARS-TO-DECLARE (STRUCTURE-ELT S 11))) NIL T T
:pinfo INLINE-MV-CALL-MV-HOLDER (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo NAMED-CALL-OUT-TYPE (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SWITCH-TAIL? (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-LINE!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo PROC-INFO-METHODS (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-METHODS (STRUCTURE-ELT S 8))) NIL T T
:pinfo SIMPLE-KEYWORD-ARG-LIST (ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TOP-LEVEL-PROC-VAR-INFO!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-VAR-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo C-CODE-MV-HOLDER (S) NIL (C-CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK C-CODE-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-SPEC-BIND-SEQ-MV-HOLDER!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo VALIDATE-FUNCTION-CALL (CALL) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-DEF-INNERMOST-PROC!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-INNERMOST-PROC!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-ID!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-POINT-ID (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-CATCH-CONTROL-POINT-RECEIVE-VAR!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-RECEIVE-VAR!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo PROC-INFO-META-EVAL-ARG-TYPES (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-META-EVAL-ARG-TYPES (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-UNNAMED-CALL-ARGS!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-MACHINE-C-COMPILER!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-C-COMPILER!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo VAR-OP-TAIL? (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo NAMED-LOCAL-LETREC? (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-LETREC? (STRUCTURE-ELT S 9))) NIL T T
:pinfo COPY-FUNCTION-AND-METHOD-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PRIMITIVE-INFO-OUT-TYPES!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-OUT-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-FUNARG-REFS (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-FUNARG-REFS (STRUCTURE-ELT S 12))) NIL T T
:pinfo SET-SWITCH-LINE!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SCOPE-SEQ-TAIL? (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo VARIABLE-INFO-KIND (S) NIL (VARIABLE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-INFO-KIND (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-VALUES-SEQ-VALUES!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-VALUES!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-OPTIONAL-VAR!@$ (S VALUE) NIL (OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-OPTIONAL-VAR!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MAKE-VARIABLE-INFO/5 (NAME KIND TYPE CONSTANT-EXPR REF-BEFORE-DEF?) NIL NIL NIL NIL NIL NIL T
:pinfo MACHINE-PROCESSOR (S) NIL (MACHINE) NIL (LAMBDA (S) (DECLARE) (BLOCK MACHINE-PROCESSOR (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-FUNCTION-CALL-OUT-TYPE!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-LIBRARY-VERSION!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-VERSION!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo CONFIG-MISC-SPEED-HACKS? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-MISC-SPEED-HACKS? (STRUCTURE-ELT S 14))) NIL T T
:pinfo INLINE-MV-CALL-NEW-HOLDER (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-NEW-HOLDER (STRUCTURE-ELT S 8))) NIL T T
:pinfo PROC-INFO-INLINE? (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-INLINE? (STRUCTURE-ELT S 11))) NIL T T
:pinfo DYNAMIC-TAG-CONTROL-POINT-LINE (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo NEW-STRUCTURE-TABLE NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-SLOT-NAME!@$ (S VALUE) NIL (C-STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-SLOT-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-INNER-PROC-C-NAME!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-C-NAME!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo DEFINE-C-STRUCTURE (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FUNCTION-VAR-NUM-REFS!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-NUM-REFS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-SPEC-BIND-SEQ-TAIL?!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo IMPROVE-VAR-DEF (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo PARSE-DECLS (DECLS) NIL NIL NIL NIL NIL NIL T
:pinfo SPEC-BIND-SEQ-RESULT-NAME (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-IF-THEN!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-THEN!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo VAR-INFO-KEYS (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-KEYS (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-COMPILER-METHOD-TRANSFORM!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-TRANSFORM!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo MACHINE-OPERATING-SYSTEM (S) NIL (MACHINE) NIL (LAMBDA (S) (DECLARE) (BLOCK MACHINE-OPERATING-SYSTEM (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-VOLATILE!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-VOLATILE!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-TRANSFER-DESTINATION-POINT!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-DESTINATION-POINT!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-LINE!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo COPY-STATIC-SCOPE-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-VAR-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNNAMED-CALL-FUNCTION-FORM!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-FUNCTION-FORM!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo VARIABLE-VAR-EXTENT (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-EXTENT (STRUCTURE-ELT S 8))) NIL T T
:pinfo CLEAR-SYMBOL-TABLE (SYMBOL-TABLE) NIL NIL NIL NIL NIL NIL T
:pinfo COMPILE-TOP-LEVEL-DEFINE-C-STRUCTURE (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-C-STRUCT-SLOT (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-C-COMPILER (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-CATCH-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (RECEIVE-VAR NIL) (TAG-NAME NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (RECEIVE-VAR NIL) (TAG-NAME NIL)) (DECLARE) (BLOCK MAKE-CATCH-CONTROL-POINT (MAKE-CATCH-CONTROL-POINT/11 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR TAG-NAME))) NIL T T
:pinfo SET-CONTROL-TRANSFER-RESULT-NAME!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC NIL NIL NIL NIL NIL NIL NIL T
:pinfo VAR-DYNAMIC-EXTENT? (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DYNAMIC-EXTENT? (STRUCTURE-ELT S 9))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-REFS (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-CONFIG-BETA?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-BETA?!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo SET-VAR-INFO-HAIRY?!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-HAIRY?!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-VAR-INFO-REQUIREDS!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-REQUIREDS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-VARIABLE-VAR-NUM-REFS!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-NUM-REFS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo COPY-DECLS (S) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-VAR-EXTENT (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-EXTENT (STRUCTURE-ELT S 8))) NIL T T
:pinfo FLUID-SEQ-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-DYNAMIC-TAG-CONTROL-POINT/11 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID C-NAME TAG-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo LISP->C-SYMBOL-NAME (SYM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VALUES-SEQ-LINE!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo PRIMITIVE-CALL-NAME (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-C-ARRAY-INFO-DIMENSIONS!@$ (S VALUE) NIL (C-ARRAY-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-ARRAY-INFO-DIMENSIONS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-PARENT (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo IF-RESULT-NAME (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo COPY-CATCH-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo TAG-CONTROL-POINT-TAIL? (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SYMBOL-INIT->C-CODE (CMD SYMBOL ARGUMENT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FUNCTION-INFO-INS!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-INS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SPEC-BIND-SEQ-LINE (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-INFO-OUT-TYPES!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-OUT-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo LIST-UNDEFINED-FUNCTIONS NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONFIG-MISC-SPEED-HACKS?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-MISC-SPEED-HACKS?!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-KEY-NAME!@$ (S VALUE) NIL (KEY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-KEY-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-IF-LINE!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-REFS!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo EMIT-SYMBOL-TABLE-REGISTRATION-CODE (SYMBOL-TABLE) NIL NIL NIL NIL NIL NIL T
:pinfo NAMED-CALL-INFO (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo UNWIND-PROTECT-CLEANUP-FORM (S) NIL (UNWIND-PROTECT) NIL (LAMBDA (S) (DECLARE) (BLOCK UNWIND-PROTECT-CLEANUP-FORM (STRUCTURE-ELT S 7))) NIL T T
:pinfo KEY-INIT-FORM (S) NIL (KEY) NIL (LAMBDA (S) (DECLARE) (BLOCK KEY-INIT-FORM (STRUCTURE-ELT S 3))) NIL T T
:pinfo C-STRUCT-DEF-MV-HOLDER (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo EMIT-REQUIRED-ARGC-CHECK (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LIBRARY-C-TYPE-INFO!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-C-TYPE-INFO!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo COPY-TAG-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo C-STRUCT-REF-LINE (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo DECLS-OPTIMIZES (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-OPTIMIZES (STRUCTURE-ELT S 8))) NIL T T
:pinfo NAMED-LOCAL-BODY (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-C-STRUCT-REF-STRUCT-INFO!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-STRUCT-INFO!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo COPY-FUNCTION-VAR (S) NIL NIL NIL NIL NIL NIL T
:pinfo CATCH-CONTROL-POINT-LINE (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-INFO-IN-TYPES!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-IN-TYPES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-DECLS-INLINES!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-INLINES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-FUNCTION-INFO-OUT-TYPES!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-OUT-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TAG-SEQ-LINE (S) NIL (TAG-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-SEQ-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo READ-LIBRARY-PROCLAIMS (INPUT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DECLS-TYPES!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-TYPES!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CONTROL-TRANSFER-UNWIND-COUNT (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-UNWIND-COUNT (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-C-STRUCT-REF-LINE!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FLUID-C-STRUCT-DEF-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo INSTALLATION-PARAMETER (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-INFO-ALLOW-OTHER-KEYS?!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-ALLOW-OTHER-KEYS?!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo C-STRUCT-DEF-NAME (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-FUNCTION-CALL-NAME!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo CONFIG-BETA? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-BETA? (STRUCTURE-ELT S 12))) NIL T T
:pinfo COM-1 (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DECLS-DYNAMIC-EXTENTS!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-DYNAMIC-EXTENTS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo CLEAR-UNDEFINED-FUNCTIONS NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-FUNCTION-AND-METHOD-INFO-OUT-TYPES!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-OUT-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo UPDATE-TMP-VAR-COUNT (N) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-TRANSFER-SEND-VALUE!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-SEND-VALUE!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo ANALYZE-NAMED-FUNCTION (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo C-TYPE-INFO-CONVERT-TO-LISP (S) NIL (C-TYPE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-TYPE-INFO-CONVERT-TO-LISP (STRUCTURE-ELT S 3))) NIL T T
:pinfo MAKE-C-STRUCT-DEF/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME STRUCT-INFO FIELD) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONTROL-POINT-NAME!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo VAR-DEFINITE-TYPE (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEFINITE-TYPE (STRUCTURE-ELT S 4))) NIL T T
:pinfo INLINE-MV-CALL-TAIL? (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-OE-VAR!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-OE-VAR!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo SET-PROGN-LINE!@$ (S VALUE) NIL (PROGN T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGN-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-C-STRUCT-OP-STRUCT-INFO!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-STRUCT-INFO!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo VALUES-SEQ-MV-HOLDER (S) NIL (VALUES-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK VALUES-SEQ-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-DESTINATION-POINT (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-DESTINATION-POINT (STRUCTURE-ELT S 6))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-NAME (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo TAG-CONTROL-POINT-REFS (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo UNNAMED-CALL-TAIL? (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-C-STRUCT-DEF-INFO!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo PROC-INFO-SOURCE-FILE (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-SOURCE-FILE (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-C-CODE-OUT-TYPE!@$ (S VALUE) NIL (C-CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-CODE-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-C-COMPILER-COMMAND!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-COMMAND!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FLUID-FUNCTION-CALL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-DYNAMIC-EXTENT?!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DYNAMIC-EXTENT?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-PROC-INFO-META-EVAL-FUNCTION!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-META-EVAL-FUNCTION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-NAME!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MAKE-C-STRUCT-INFO (&KEY (NAME NIL) (SLOTS NIL)) NIL NIL NIL (LAMBDA (&KEY (NAME NIL) (SLOTS NIL)) (DECLARE) (BLOCK MAKE-C-STRUCT-INFO (MAKE-C-STRUCT-INFO/2 NAME SLOTS))) NIL T T
:pinfo SPEC-BIND-SEQ-VALUES (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-VALUES (STRUCTURE-ELT S 7))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-RESULT-NAME (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo EMIT-SOURCE-LINE (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INLINE-MV-CALL-VALUES!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-VALUES!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-VARIABLE-INFO-KIND!@$ (S VALUE) NIL (VARIABLE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-INFO-KIND!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-BASIC-OPTIONAL-INIT-FORM!@$ (S VALUE) NIL (BASIC-OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BASIC-OPTIONAL-INIT-FORM!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-COMPILER-METHOD-NEW-FUNCTION!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-NEW-FUNCTION!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo INNER-PROC-C-NAME (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-C-NAME (STRUCTURE-ELT S 9))) NIL T T
:pinfo FOREIGN-INFO-METHODS (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-METHODS (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-PRIMITIVE-CALL-NAME!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo C-STRUCT-REF-RESULT-NAME (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo DYNAMIC-TAG-CONTROL-POINT-OUT-TYPE (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-PROC-MV-HOLDER!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-SPEC-BIND-SEQ-SPECIALS!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-SPECIALS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo INNER-PROC-TAIL? (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo FLUID-VAR-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo PRINT-CALL-TYPES (CALL) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-APPLICATION-PACKAGE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo KEY-NAME (S) NIL (KEY) NIL (LAMBDA (S) (DECLARE) (BLOCK KEY-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo COPY-TAG-CONTROL-TRANSFER (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BASIC-OPTIONAL-VAR!@$ (S VALUE) NIL (BASIC-OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BASIC-OPTIONAL-VAR!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COPY-SCOPE-CONTROL-TRANSFER (S) NIL NIL NIL NIL NIL NIL T
:pinfo IF-TAIL? (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo FUNCTION-INFO-NAME (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo CONFIGURATIONS_INIT1178 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo INNER-PROC-MV-HOLDER (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo MAKE-C-STRUCT-OP/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME STRUCT-INFO FIELD) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-OP-NAME!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-SEQ-RESULT-NAME!@$ (S VALUE) NIL (SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SEQ-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-C-STRUCT-DEF-TAIL?!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-TAG-NAME!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-TAG-NAME!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-C-TYPE-INFO-C-TYPE!@$ (S VALUE) NIL (C-TYPE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-TYPE-INFO-C-TYPE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-NAMED-LOCAL-VARS!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-VARS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo C-STRUCT-OP-OUT-TYPE (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-CODE-LINE!@$ (S VALUE) NIL (CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CODE-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo BINARY-PATHNAME (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo QUOTED-CONSTANT? (X) NIL NIL NIL NIL NIL NIL T
:pinfo BASIC-OPTIONAL-INIT-FORM-EXPRESSION (S) NIL (BASIC-OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK BASIC-OPTIONAL-INIT-FORM-EXPRESSION (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-FUNCTION-INFO-META-EVAL-FUNCTION!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-META-EVAL-FUNCTION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-SCOPE-CONTROL-TRANSFER-TAIL?!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FUNCTION-INFO-IN-TYPES (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-IN-TYPES (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-CALL-INFO!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SPEC-BIND-SEQ-BODY (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-NAME (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo PROC-VARS-TO-DECLARE (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-VARS-TO-DECLARE (STRUCTURE-ELT S 11))) NIL T T
:pinfo VALUES-SEQ-RESULT-NAME (S) NIL (VALUES-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK VALUES-SEQ-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-NAME!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-OUT-TYPE (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-PROC-LINE!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo MACHINE-C-COMPILER (S) NIL (MACHINE) NIL (LAMBDA (S) (DECLARE) (BLOCK MACHINE-C-COMPILER (STRUCTURE-ELT S 4))) NIL T T
:pinfo FUNCTION-CALL-MV-HOLDER (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-REFS (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo TAG-CONTROL-POINT-OUT-TYPE (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo MACRO-PACKAGE-ABBREV (SYM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FUNCTION-AND-METHOD-INFO-METHODS!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-METHODS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-BRANCH-TEST!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-TEST!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo UNNAMED-CALL-LINE (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo MAKE-IF/9 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME INLINE-TEST? TEST THEN ELSE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-APPLICATION-SYMBOL-HASH-CODE!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-HASH-CODE!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo EMIT-HAIRY-ARG-CODE (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo C-STRUCT-REF-OUT-TYPE (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-APPLICATION-PACKAGE-SYMBOL-ARRAY-C-NAME!@$ (S VALUE) NIL (APPLICATION-PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-PACKAGE-SYMBOL-ARRAY-C-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo TAG-SEQ-BODY (S) NIL (TAG-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-SEQ-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo UNNAMED-CALL-OUT-TYPE (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo DECIMAL-INTEGER-LENGTH (N) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TOP-LEVEL-PROC-START-LABEL!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-START-LABEL!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-LINE (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo C-CODE-STRING (S) NIL (C-CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK C-CODE-STRING (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-CONFIG-ARRAY-BOUNDS-CHECKING?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-ARRAY-BOUNDS-CHECKING?!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-C-STRUCT-SLOT-C-NAME!@$ (S VALUE) NIL (C-STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-SLOT-C-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo FLATTEN (L) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONFIG-CC-OPTIMIZER-LEVEL!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-CC-OPTIMIZER-LEVEL!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FLUID-SWITCH-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-FUNCTION-AND-METHOD-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo CATCH-CONTROL-POINT-ID (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-C-TYPE-INFO-CONSTANT-TO-C!@$ (S VALUE) NIL (C-TYPE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-TYPE-INFO-CONSTANT-TO-C!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo RECORD-C-STRUCT-REFERENCE (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo INLINE-MV-CALL-BODY (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo FLUID-CATCH-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo BRANCH-RESULT-NAME (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-VAR-INNERMOST-PROC!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INNERMOST-PROC!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-NAME!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-MVALUES-TAIL?!@$ (S VALUE) NIL (MVALUES T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MVALUES-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-RESULT-NAME (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-REFS (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-APPLICATION-SYMBOL-SYM!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-SYM!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-VARIABLE-VAR-NAME!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-FUNCTION-AND-METHOD-INFO-META-EVAL-ARG-TYPES!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-META-EVAL-ARG-TYPES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-INLINE-MV-CALL-VAR-INFO!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-VAR-INFO!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo KEY-INIT-FORM-EXPRESSION (S) NIL (KEY) NIL (LAMBDA (S) (DECLARE) (BLOCK KEY-INIT-FORM-EXPRESSION (STRUCTURE-ELT S 2))) NIL T T
:pinfo COPY-SCOPE-SEQ (S) NIL NIL NIL NIL NIL NIL T
:pinfo C-COMPILER-COMMAND (S) NIL (C-COMPILER) NIL (LAMBDA (S) (DECLARE) (BLOCK C-COMPILER-COMMAND (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-VAR-POSSIBLE-TYPES!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-POSSIBLE-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-TAG-SEQ-TAIL?!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-PROGN-OUT-TYPE!@$ (S VALUE) NIL (PROGN T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGN-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-CONFIG-IMPROVE?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-IMPROVE?!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo WCL-FIXNUM? (N) NIL NIL NIL NIL NIL NIL T
:pinfo SEQ-RESULT-NAME (S) NIL (SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SEQ-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-DECLS-IGNORES!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-IGNORES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FOREIGN-CALL-LINE (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo C-ARRAY-INFO-DIMENSIONS (S) NIL (C-ARRAY-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-ARRAY-INFO-DIMENSIONS (STRUCTURE-ELT S 2))) NIL T T
:pinfo PRIMITIVE-CALL-OUT-TYPE (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo DYNAMIC-TAG-CONTROL-POINT-TAG-NAME (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-TAG-NAME (STRUCTURE-ELT S 11))) NIL T T
:pinfo EMIT-TAG-CONTROL-POINT (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo INLINE-ARRAY-OP? (CALL) NIL NIL NIL NIL NIL NIL T
:pinfo CONFIG-ARGC-CHECK? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-ARGC-CHECK? (STRUCTURE-ELT S 5))) NIL T T
:pinfo FOREIGN-INFO-OUT-TYPE-OBJECTS (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-OUT-TYPE-OBJECTS (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-APPLICATION-PACKAGE-HOST-PACKAGE!@$ (S VALUE) NIL (APPLICATION-PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-PACKAGE-HOST-PACKAGE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MAKE-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL)) (DECLARE) (BLOCK MAKE-CONTROL-POINT (MAKE-CONTROL-POINT/9 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID))) NIL T T
:pinfo MVALUES-MV-HOLDER (S) NIL (MVALUES) NIL (LAMBDA (S) (DECLARE) (BLOCK MVALUES-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-NAMED-LOCAL-TAIL?!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MAKE-VAR-OP/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME VAR INNERMOST-PROC) NIL NIL NIL NIL NIL NIL T
:pinfo TOP-LEVEL-PROC-OE-VARS (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-OE-VARS (STRUCTURE-ELT S 16))) NIL T T
:pinfo C-STRUCT-REF-TAIL? (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-CATCH-CONTROL-POINT-TAG-NAME!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-TAG-NAME!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo VAR-DEF-MV-HOLDER (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo VAR-INFO-AUXES (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-AUXES (STRUCTURE-ELT S 7))) NIL T T
:pinfo LOOKUP-NAMED-C-TYPE (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo VARIABLE-VAR-DECLARED-OK-TO-IGNORE? (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-DECLARED-OK-TO-IGNORE? (STRUCTURE-ELT S 3))) NIL T T
:pinfo NEW-NAME-ID NIL NIL NIL NIL NIL NIL NIL T
:pinfo VAR-REF-TAIL? (S) NIL (VAR-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-REF-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo INLINE-MV-CALL-VALUES (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-VALUES (STRUCTURE-ELT S 7))) NIL T T
:pinfo FLUID-IF-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-REF-RESULT-NAME!@$ (S VALUE) NIL (VAR-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-REF-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo FLUID-FOREIGN-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo PROC-BODY (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-PROC-INFO-METHODS!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-METHODS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-INFO-META-EVAL-FUNCTION!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-META-EVAL-FUNCTION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo CONFIG-REMOVE-TAIL-RECURSION? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-REMOVE-TAIL-RECURSION? (STRUCTURE-ELT S 10))) NIL T T
:pinfo MVALUES-RESULT-NAME (S) NIL (MVALUES) NIL (LAMBDA (S) (DECLARE) (BLOCK MVALUES-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo TREE-NSUBST-CONTROL-POINT (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo VAR-REF-LINE (S) NIL (VAR-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-REF-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-CALL-RESULT-NAME!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-C-STRUCT-OP-MV-HOLDER!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FOREIGN-INFO-NAME (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-C-STRUCT-DEF-STRUCT-INFO!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-STRUCT-INFO!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-LIBRARY-PROCLAIMS!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-PROCLAIMS!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-TRANSFER-TAIL?!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FIND-ROOT-DIRECTORY NIL NIL NIL NIL NIL NIL NIL T
:pinfo STATIC-TAG-CONTROL-POINT-ID (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo CONFIG-ARRAY-BOUNDS-CHECKING? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-ARRAY-BOUNDS-CHECKING? (STRUCTURE-ELT S 8))) NIL T T
:pinfo COPY-BASIC-OPTIONAL (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROC-VOLATILE!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-VOLATILE!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo TAG-CONTROL-POINT-NAME (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-PROC-C-NAME!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-C-NAME!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-TAG-SEQ-MV-HOLDER!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo C-TYPE-NAME->C-TYPE-OBJECT (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo CONTROL-POINT-RESULT-NAME (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-TAG-NAME!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-TAG-NAME!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-TAG-NAME (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-TAG-NAME (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-FUNARG-REFS!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-FUNARG-REFS!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo BRANCH-OUT-TYPE (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo DYNAMIC-TRANSFER-METHOD? (NODE-ID) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNNAMED-CALL-OUT-TYPE!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo INNER-PROC-NAME (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo DYNAMIC-TAG-CONTROL-POINT-ID (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo APPLICATION-SYMBOL-C-NAME (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-C-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-C-STRUCT-REF-RESULT-NAME!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo COMPILER-INIT_INIT2089 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-CONVERT?!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-CONVERT?!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo C-STRUCT-REF-FIELD (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-FIELD (STRUCTURE-ELT S 10))) NIL T T
:pinfo BETA-VALUE? (VAL) NIL NIL NIL NIL NIL NIL T
:pinfo C-CODE-TAIL? (S) NIL (C-CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK C-CODE-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-PROC-OUT-TYPE!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-FUNCTION-VAR-NUM-DEFS!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-NUM-DEFS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo COMPILE-TOP-LEVEL-ADD-WINFO (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DECLS-SPECIALS!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-SPECIALS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo CONFIG-NAME (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-CONFIG-REMOVE-TAIL-RECURSION?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-REMOVE-TAIL-RECURSION?!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-NAMED-CALL-TAIL?!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FUNCTION-VAR-INNERMOST-PROC (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-INNERMOST-PROC (STRUCTURE-ELT S 10))) NIL T T
:pinfo FUNCTION-AND-METHOD-INFO-OUTS (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-OUTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo MAKE-PRIMITIVE-CALL/8 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-COMPILER-METHOD/9 (NAME INS OUTS IN-TYPES OUT-TYPES META-EVAL-ARG-TYPES META-EVAL-FUNCTION NEW-FUNCTION TRANSFORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DECLS-NOTINLINES!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-NOTINLINES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo DECLS-TYPES (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-TYPES (STRUCTURE-ELT S 2))) NIL T T
:pinfo CONFIG-CC-OPTIMIZER-LEVEL (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-CC-OPTIMIZER-LEVEL (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-VAR-NAME!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-NAMED-CALL-RESULT-NAME!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo C-STRUCT-DEF-ARGS (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-PROC-INFO-LAMBDA-EXPR!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-LAMBDA-EXPR!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo FLUID-TAG-CONTROL-TRANSFER-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo EMIT-PROC-CODE (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo C->LISP-CONVERTER (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo IMPROVE-SCOPE-CONTROL-TRANSFER (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-NAMED-LOCAL/9 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY VALUES VARS LETREC?) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-TAG-CONTROL-TRANSFER/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME DESTINATION-POINT UNWIND-COUNT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-NAMED-CALL-ARGS!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MAKE-BRANCH/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME INLINE-TEST? TEST) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FOREIGN-INFO-OUT-TYPE-OBJECTS!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-OUT-TYPE-OBJECTS!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo MACHINE-SHARED-LIBRARIES (S) NIL (MACHINE) NIL (LAMBDA (S) (DECLARE) (BLOCK MACHINE-SHARED-LIBRARIES (STRUCTURE-ELT S 6))) NIL T T
:pinfo EMIT-NON-ANSI-HAIRY-PROC-DECL (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-NAMED-LOCAL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VARIABLE-VAR-NUM-DEFS!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-NUM-DEFS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SUCCESSFUL-STATUS? (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FUNCTION-VAR-C-NAME!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-C-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COMPILER-METHOD-NAME (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-C-STRUCT-OP-RESULT-NAME!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo MAKE-TAG-SEQ/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY CONTROL-POINTS) NIL NIL NIL NIL NIL NIL T
:pinfo TAG-CONTROL-TRANSFER-MV-HOLDER (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo DECLARE-VARS-VOLATILE NIL NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-BRANCH-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo RECORD-FOREIGN-FUNCTION-REFERENCE (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo COMPILE-AND-LOAD-DEF (DEF) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo VARIABLE-VAR-NAME (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo COPY-PROGN (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-TAG-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROC-INFO-IN-TYPES!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-IN-TYPES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo DEFINE-PRIMITIVE (NAME INS OUTS IN-TYPES OUT-TYPES EMITTER) NIL NIL NIL NIL NIL NIL T
:pinfo CONTROL-TRANSFER-MV-HOLDER (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-CONVERT?!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-CONVERT?!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-NAME (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo FLUID-FOREIGN-SYMBOL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo PROC-START-LABEL (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-START-LABEL (STRUCTURE-ELT S 14))) NIL T T
:pinfo PROGN-LINE (S) NIL (PROGN) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGN-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo PROGN-MV-HOLDER (S) NIL (PROGN) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGN-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-TAG-SEQ-LINE!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SEQ-MV-HOLDER (S) NIL (SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SEQ-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-VAR-REF-TAIL?!@$ (S VALUE) NIL (VAR-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-REF-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COPY-KEY (S) NIL NIL NIL NIL NIL NIL T
:pinfo LIBRARY-DIRECTORY (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-DIRECTORY (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-VALUES-SEQ-BODY!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-FOREIGN-CALL-TAIL?!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo VALUES-SEQ-VALUES (S) NIL (VALUES-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK VALUES-SEQ-VALUES (STRUCTURE-ELT S 7))) NIL T T
:pinfo INNER-PROC-NEEDS-OE? (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo INNER-PROC-OUT-TYPE (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo PRIMITIVE-CALL-LINE (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo FLUID-CONTROL-TRANSFER-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNWIND-PROTECT-MV-HOLDER!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo MAKE-INNER-PROC/18 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY VAR-INFO NAME C-NAME MAX-TMP-VAR-COUNT VARS-TO-DECLARE FUNARG-REFS OE-VAR START-LABEL VOLATILE OE-REFS PASS-ON-OE? PARENT-CHAIN) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-COMPILER-ANSI-FIXED-ARGS?!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-ANSI-FIXED-ARGS?!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-TAIL?!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-VARIABLE-VAR-POSSIBLE-TYPES!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-POSSIBLE-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-C-NAME!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-C-NAME!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo ADD-REANALYSIS-INFO (CONTROL-POINT) NIL NIL NIL NIL NIL NIL T
:pinfo C-STRUCT-SLOT-C-NAME (S) NIL (C-STRUCT-SLOT) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-SLOT-C-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-MACHINE-LINKER-COMMAND!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-LINKER-COMMAND!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TAG-SEQ-MV-HOLDER (S) NIL (TAG-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-SEQ-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo NAMED-LOCAL-MV-HOLDER (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-VAR-DEF-VALUE!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-VALUE!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-SEQ-MV-HOLDER!@$ (S VALUE) NIL (SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SEQ-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-CONTROL-POINT-LINE!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo IF-THEN (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-THEN (STRUCTURE-ELT S 8))) NIL T T
:pinfo CONSTANT-DATA (S) NIL (CONSTANT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONSTANT-DATA (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-TAG-SEQ-OUT-TYPE!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo MAKE-SCOPE-CONTROL-POINT/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR) NIL NIL NIL NIL NIL NIL T
:pinfo STATIC-TAG-CONTROL-POINT-TAIL? (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo TREE-NSUBST-SEQ (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SWITCH-LINE (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo COMPILE-TOP-LEVEL-PACKAGE-RELATED-FORM (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo LIBRARY-INIT-THUNK (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-INIT-THUNK (STRUCTURE-ELT S 10))) NIL T T
:pinfo FLUID-NAMED-CALL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FUNCTION-CALL-INFO!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo FUNCTION-CALL-ARGS (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-DECLS-OPTIMIZES!@$ (S VALUE) NIL (DECLS T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DECLS-OPTIMIZES!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-FUNCTION-VAR-INNERMOST-PROC!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-INNERMOST-PROC!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo CONTROL-TRANSFER-OUT-TYPE (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo FLUID-STATIC-TAG-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo GENSTRING (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-TAG-CONTROL-POINT-RESULT-NAME (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo CONTROL-POINT-OUT-TYPE (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-CATCH-CONTROL-POINT-ID!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo COPY-NAMED-CALL (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-OP-OUT-TYPE!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-CONSTANT-DATA!@$ (S VALUE) NIL (CONSTANT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONSTANT-DATA!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SCOPE-SEQ-OUT-TYPE (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-VARIABLE-INFO-TYPE!@$ (S VALUE) NIL (VARIABLE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-INFO-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-SCOPE-SEQ-OUT-TYPE!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FUNCTION-VAR-POSSIBLE-TYPES (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-POSSIBLE-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo CONFIG-CC-DEBUG-INFO? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-CC-DEBUG-INFO? (STRUCTURE-ELT S 2))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-OUT-TYPE (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo EMIT-RETURN-IF-TAIL (VALUE TREE RVAR RTYPE) NIL NIL NIL NIL NIL NIL T
:pinfo C-STRUCT-DEF-STRUCT-INFO (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-STRUCT-INFO (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-VAR-DEFINITE-TYPE!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEFINITE-TYPE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-RESULT-NAME (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo MAKE-UNNAMED-CALL/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME SPREAD-ARGS? FUNCTION-FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-APPLICATION-SYMBOL-VALUE!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-VALUE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo IF-LINE (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-LEX-ENV-FUNCTIONS!@$ (S VALUE) NIL (LEX-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LEX-ENV-FUNCTIONS!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-CALL-LINE!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo C-STRUCT-REF-INFO (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo C-STRUCT-OP-FIELD (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-FIELD (STRUCTURE-ELT S 10))) NIL T T
:pinfo MAKE-DYNAMIC-SCOPE-CONTROL-POINT/11 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR TAG-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-ID!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo PROCLAIM-W (DECL-SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo READ-PROCEDURE-INFO (INPUT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INLINE-MV-CALL-MV-HOLDER!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COPY-TAG-SEQ (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-PRIMITIVE-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BRANCH-INLINE-TEST?!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-INLINE-TEST?!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FLUID-C-STRUCT-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAYBE-EMIT-ASSIGNMENT (RVAR) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-CONFIG-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-VAR-NUM-REFS (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-NUM-REFS (STRUCTURE-ELT S 6))) NIL T T
:pinfo C-STRUCT-SLOT-TYPE (S) NIL (C-STRUCT-SLOT) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-SLOT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-PROC-INFO-SOURCE-FILE!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-SOURCE-FILE!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SWITCH-CONSEQUENTS (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-CONSEQUENTS (STRUCTURE-ELT S 9))) NIL T T
:pinfo VAR-EXTENT (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-EXTENT (STRUCTURE-ELT S 8))) NIL T T
:pinfo SPEC-BIND-SEQ-TAIL? (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-BRANCH-RESULT-NAME!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-INFO-OUTS!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-OUTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo LIBRARY-LISP-FILES (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-LISP-FILES (STRUCTURE-ELT S 5))) NIL T T
:pinfo EMIT-DATA (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BRANCH-LINE!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-TRANSFER-LINE!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo CODE-RESULT-NAME (S) NIL (CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK CODE-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo PROGN-OUT-TYPE (S) NIL (PROGN) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGN-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-VAR-DEF-RESULT-NAME!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo VAR-POSSIBLE-TYPES (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-POSSIBLE-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-NAME!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo CONFIG-LISP-LINE-NUMBERS? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-LISP-LINE-NUMBERS? (STRUCTURE-ELT S 15))) NIL T T
:pinfo SET-C-COMPILER-ANSI-VAR-ARGS?!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-ANSI-VAR-ARGS?!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-FOREIGN-CALL-OUT-TYPE!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-NAME!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-NAMED-CALL-LINE!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FLUID-TOP-LEVEL-PROC-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SPEC-BIND-SEQ-BODY!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo TAG-CONTROL-POINT-PARENT (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo VAR-INFO-ALLOW-OTHER-KEYS? (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-ALLOW-OTHER-KEYS? (STRUCTURE-ELT S 6))) NIL T T
:pinfo VALUES-SEQ-TAIL? (S) NIL (VALUES-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK VALUES-SEQ-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-CONTROL-POINT-REFS!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo COPY-CONSTANT (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-FUNCTION-VAR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo DECLS-NOTINLINES (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-NOTINLINES (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-C-STRUCT-DEF-OUT-TYPE!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo PROC-MAX-TMP-VAR-COUNT (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-MAX-TMP-VAR-COUNT (STRUCTURE-ELT S 10))) NIL T T
:pinfo VAR-INFO-HAIRY? (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-HAIRY? (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-LIBRARY-NAME!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-RESULT-NAME (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-SCOPE-SEQ-CONTROL-POINT!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-CONTROL-POINT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-FUNCTION-AND-METHOD-INFO-NAME!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo OPTIONAL-INIT-FORM-EXPRESSION (S) NIL (OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK OPTIONAL-INIT-FORM-EXPRESSION (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-VAR-REF-LINE!@$ (S VALUE) NIL (VAR-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-REF-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FUNCTION-VAR-NAME (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-COMPILER-METHOD-NAME!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo PROGN-BODY (S) NIL (PROGN) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGN-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo VALUES-SEQ-LINE (S) NIL (VALUES-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK VALUES-SEQ-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-SPEC-BIND-SEQ-OUT-TYPE!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-FOREIGN-CALL-MV-HOLDER!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-LINE!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo CONTROL-POINT-REFS (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo CONSTANT-OUT-TYPE (S) NIL (CONSTANT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONSTANT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo FLUID-C-TYPE-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-FUNCTION-AND-METHOD-INFO-OUTS!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-OUTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo APPLICATION-SYMBOL-SYM (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-SYM (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-OPTIONAL-SUPPLIED-VAR!@$ (S VALUE) NIL (OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-OPTIONAL-SUPPLIED-VAR!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FLUID-VARIABLE-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-POINT-RECEIVE-VAR!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-RECEIVE-VAR!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-VAR-REF-INNERMOST-PROC!@$ (S VALUE) NIL (VAR-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-REF-INNERMOST-PROC!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo NAMED-CALL-TAIL? (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-UNNAMED-CALL-INFO!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo CONSTANT-RESULT-NAME (S) NIL (CONSTANT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONSTANT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo INNER-PROC-OE-REFS (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-OE-REFS (STRUCTURE-ELT S 16))) NIL T T
:pinfo SET-PROC-INFO-DEFINED?!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-DEFINED?!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo COPY-C-STRUCT-DEF (S) NIL NIL NIL NIL NIL NIL T
:pinfo TOP-LEVEL-PROC-MAX-TMP-VAR-COUNT (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-MAX-TMP-VAR-COUNT (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-REFS!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-RESULT-NAME (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo MAKE-FOREIGN-INFO/11 (NAME INS OUTS IN-TYPES OUT-TYPES META-EVAL-ARG-TYPES META-EVAL-FUNCTION METHODS FOREIGN-NAME IN-TYPE-OBJECTS OUT-TYPE-OBJECTS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PRIMITIVE-CALL-TAIL?!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo BRANCH-LINE (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CREATE-KEY (KEY) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-FUNCTION-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo IF-OUT-TYPE (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo CATCH-CONTROL-POINT-TAG-NAME (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-TAG-NAME (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-ID!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-C-STRUCT-REF-ARGS!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo COPY-VAR-REF (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CATCH-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo INNER-PROC-PARENT-CHAIN (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-PARENT-CHAIN (STRUCTURE-ELT S 18))) NIL T T
:pinfo MAKE-SPEC-BIND-SEQ/8 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY VALUES SPECIALS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-KEY-INIT-FORM!@$ (S VALUE) NIL (KEY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-KEY-INIT-FORM!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-VAR-INFO-KEYS!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-KEYS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo TMP-VAR-NAME NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-BRANCH-TAIL?!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-CONFIG-STRUCTURE-TYPE-CHECKING?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-STRUCTURE-TYPE-CHECKING?!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo FUNCTION-INFO-OUTS (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-OUTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo APPLICATION-PACKAGE-SYMBOLS (S) NIL (APPLICATION-PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-PACKAGE-SYMBOLS (STRUCTURE-ELT S 3))) NIL T T
:pinfo BASIC-OPTIONAL-VAR (S) NIL (BASIC-OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK BASIC-OPTIONAL-VAR (STRUCTURE-ELT S 1))) NIL T T
:pinfo TREE-NSUBST-UNWIND-PROTECT (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-DEF-ARGS!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LOOKUP-IGNORE-DECL (VAR) NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-TAG-CONTROL-POINT-MV-HOLDER (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo COPY-C-ARRAY-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo LIBRARY-SYMBOL-TABLE (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-SYMBOL-TABLE (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-FUNCTION-VAR-EXTENT!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-EXTENT!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo GET-PROC-INFO (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INNER-PROC-VOLATILE!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-VOLATILE!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo MAKE-TAG-CONTROL-POINT/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID C-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-TAG-NAME!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-TAG-NAME!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-INLINE-MV-CALL-LINE!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-LIBRARY-SYMBOL-TABLE!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-SYMBOL-TABLE!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-TAIL? (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo VARIABLE-VAR-DEFINITE-TYPE (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-DEFINITE-TYPE (STRUCTURE-ELT S 4))) NIL T T
:pinfo INLINE-MV-CALL-OUT-TYPE (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo MAKE-DYNAMIC-BLOCK-CONTROL-POINT/11 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR TAG-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SETUP-OE-IF-NEEDED (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-TYPE-INFO-NAME!@$ (S VALUE) NIL (C-TYPE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-TYPE-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SWITCH-KEYS (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-KEYS (STRUCTURE-ELT S 8))) NIL T T
:pinfo COPY-VAR-DEF (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-TYPE-INFO-CONVERT-TO-LISP!@$ (S VALUE) NIL (C-TYPE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-TYPE-INFO-CONVERT-TO-LISP!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-FUNCTION-INFO-IN-TYPES!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-IN-TYPES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo UNNAMED-CALL-INFO (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-LIBRARY-PROCEDURE-INFO!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-PROCEDURE-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-FUNCTION-VAR-DEFINITE-TYPE!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-DEFINITE-TYPE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo LIBRARY-PROCLAIMS (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-PROCLAIMS (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-CODE-OUT-TYPE!@$ (S VALUE) NIL (CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CODE-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo NAMED-CALL-ARGS (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo PROC-INFO-DEFINED? (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-DEFINED? (STRUCTURE-ELT S 12))) NIL T T
:pinfo PROC-MV-HOLDER (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-NAMED-LOCAL-OUT-TYPE!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-VAR-INFO-OPTIONALS!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-OPTIONALS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-INNER-PROC-FUNARG-REFS!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-FUNARG-REFS!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo COPY-CONTROL-TRANSFER (S) NIL NIL NIL NIL NIL NIL T
:pinfo TAG-CONTROL-POINT-RESULT-NAME (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-CONSTANT-MV-HOLDER!@$ (S VALUE) NIL (CONSTANT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONSTANT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-APPLICATION-SYMBOL-FLAG (S FLAG-POSITION) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-CONTROL-POINT/9 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-REF-OUT-TYPE!@$ (S VALUE) NIL (VAR-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-REF-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SCOPE-SEQ-LINE (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo VAR-DECLARED-OK-TO-IGNORE? (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DECLARED-OK-TO-IGNORE? (STRUCTURE-ELT S 3))) NIL T T
:pinfo PROGN-RESULT-NAME (S) NIL (PROGN) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGN-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo VAR-DEF-RESULT-NAME (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo PROC-INFO-INS (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-INS (STRUCTURE-ELT S 2))) NIL T T
:pinfo EMIT-NON-ANSI-FIXED-PROC-DECL (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo IF-ELSE (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-ELSE (STRUCTURE-ELT S 9))) NIL T T
:pinfo COPY-MVALUES (S) NIL NIL NIL NIL NIL NIL T
:pinfo OPTIONAL-SUPPLIED-VAR (S) NIL (OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK OPTIONAL-SUPPLIED-VAR (STRUCTURE-ELT S 4))) NIL T T
:pinfo INITIALIZE-COMPILER-METHODS NIL NIL NIL NIL NIL NIL NIL T
:pinfo DECLS-IGNORES (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-IGNORES (STRUCTURE-ELT S 6))) NIL T T
:pinfo VAR-REF-VAR (S) NIL (VAR-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-REF-VAR (STRUCTURE-ELT S 6))) NIL T T
:pinfo LIBRARY-VERSION (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-VERSION (STRUCTURE-ELT S 3))) NIL T T
:pinfo TAG-CONTROL-POINT-LINE (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-C-STRUCT-OP-TAIL?!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-REFS!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo COPY-DYNAMIC-BLOCK-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-CALL-INFO (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-IF-RESULT-NAME!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo PRIMITIVE-INFO-META-EVAL-ARG-TYPES (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-META-EVAL-ARG-TYPES (STRUCTURE-ELT S 6))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-C-NAME (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-C-NAME (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-VAR-INFO-AUXES!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-AUXES!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo COPY-VARIABLE-VAR (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNWIND-PROTECT-RESULT-NAME!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-ID!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo VAR-DEF-LINE (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo LIBRARY-PROCEDURE-INFO (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-PROCEDURE-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-CONSTANT-RESULT-NAME!@$ (S VALUE) NIL (CONSTANT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONSTANT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-VALUES-SEQ-TAIL?!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-FOREIGN-CALL-ARGS!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo EMIT-CONTROL-TRANSFER (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo TREE-NSUBST-LIST (NEW OLD L) NIL NIL NIL NIL NIL NIL T
:pinfo LOAD-CLOS NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-CATCH-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FLUID-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo VAR-OP-MV-HOLDER (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo LIBRARY-OTHER-OBJECT-FILES (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-OTHER-OBJECT-FILES (STRUCTURE-ELT S 11))) NIL T T
:pinfo TREE-NSUBST (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo EMIT-PROC-EXTERN-DECLARATION (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-INFO-META-EVAL-ARG-TYPES (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-META-EVAL-ARG-TYPES (STRUCTURE-ELT S 6))) NIL T T
:pinfo CREATE-OPTIONAL (OPTIONAL) NIL NIL NIL NIL NIL NIL T
:pinfo SPEC-BIND-SEQ-SPECIALS (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-SPECIALS (STRUCTURE-ELT S 8))) NIL T T
:pinfo VALUES-SEQ-BODY (S) NIL (VALUES-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK VALUES-SEQ-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo TOP-LEVEL-PROC-NAME (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo LIBRARY-LOAD-DATE (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-LOAD-DATE (STRUCTURE-ELT S 4))) NIL T T
:pinfo FUNCTION-AND-METHOD-INFO-IN-TYPES (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-IN-TYPES (STRUCTURE-ELT S 4))) NIL T T
:pinfo MAKE-CATCH-CONTROL-POINT/11 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR TAG-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-INFO-ALL-VARS!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-ALL-VARS!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo LOOKUP-FUNCTION (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INNER-PROC-OE-REFS!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-OE-REFS!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
:pinfo COMPILE-DEFINE-MACRO (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SCOPE-SEQ-CONTROL-POINT (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-CONTROL-POINT (STRUCTURE-ELT S 7))) NIL T T
:pinfo C-COMPILER-ANSI-VAR-ARGS? (S) NIL (C-COMPILER) NIL (LAMBDA (S) (DECLARE) (BLOCK C-COMPILER-ANSI-VAR-ARGS? (STRUCTURE-ELT S 6))) NIL T T
:pinfo TOP-LEVEL-PROC-MV-HOLDER (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo VAR-OP-VAR (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-VAR (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-INNER-PROC-MV-HOLDER!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-OUT-TYPE!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-SCOPE-SEQ-TAIL?!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-TRANSFER-MV-HOLDER!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PROC-VOLATILE (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-VOLATILE (STRUCTURE-ELT S 15))) NIL T T
:pinfo SET-FOREIGN-SYMBOL-NAME!@$ (S VALUE) NIL (FOREIGN-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-SYMBOL-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MAKE-VAR-REF/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME VAR INNERMOST-PROC) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-INFO-OUTS (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-OUTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo MAKE-LINE-NUMBER-READTABLE NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-OP-OUT-TYPE!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FUNCTION-INFO-META-EVAL-FUNCTION (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-META-EVAL-FUNCTION (STRUCTURE-ELT S 7))) NIL T T
:pinfo EMIT-REFERENCED-C-DEFINITIONS NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-PRIMITIVE-INFO-IN-TYPES!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-IN-TYPES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-INNER-PROC-RESULT-NAME!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo APPLICATION-PACKAGE-SYMBOL-ARRAY-C-NAME (S) NIL (APPLICATION-PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-PACKAGE-SYMBOL-ARRAY-C-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-APPLICATION-SYMBOL-C-NAME!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-C-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-CONTROL-TRANSFER-MV-HOLDER!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FLUID-SPEC-BIND-SEQ-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo CONTROL-POINT-ID (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo CONTROL-POINT-NAME (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo COMPILE-DEFINE-VAR (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-INNER-PROC (S) NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-TAG-CONTROL-POINT-TAIL? (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo MAKE-SCOPE-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (RECEIVE-VAR NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (RECEIVE-VAR NIL)) (DECLARE) (BLOCK MAKE-SCOPE-CONTROL-POINT (MAKE-SCOPE-CONTROL-POINT/10 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR))) NIL T T
:pinfo PRIMITIVE-INFO-INS (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-INS (STRUCTURE-ELT S 2))) NIL T T
:pinfo ANALYZE-GO (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo STATIC-TAG-CONTROL-POINT-MV-HOLDER (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo C-TYPE->LISP-TYPE (C-TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LEX-ENV-BLOCKS!@$ (S VALUE) NIL (LEX-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LEX-ENV-BLOCKS!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-PROC-INFO-INS!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-INS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-IF-MV-HOLDER!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FILE-INIT-THUNK-NAME (PATHNAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-POINT-ID!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-NAMED-CALL-EMIT-AS-GOTO?!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-EMIT-AS-GOTO?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SCOPE-SEQ-RESULT-NAME (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo FLUID-PROC-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-TRANSFER-UNWIND-COUNT!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-UNWIND-COUNT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-LINE (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo TAG-CONTROL-TRANSFER-DESTINATION-POINT (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-DESTINATION-POINT (STRUCTURE-ELT S 6))) NIL T T
:pinfo COMPILER-METHOD-OUT-TYPES (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-OUT-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo VARIABLE-VAR-C-NAME (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-C-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo ANONYMOUS-FUNCTION-EXPR? (EXPR) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-CONVERT? (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-CONVERT? (STRUCTURE-ELT S 12))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-CONFIG-FULL-TYPE-CHECKING?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-FULL-TYPE-CHECKING?!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-TAG-SEQ-BODY!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo COPY-UNWIND-PROTECT (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-TRANSFER-DESTINATION-POINT!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-DESTINATION-POINT!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-C-STRUCT-DEF-LINE!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo READ-LIST-WITH-LINES (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-VAR-C-NAME (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-C-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo MAKE-FOREIGN-SYMBOL (&KEY (NAME NIL)) NIL NIL NIL (LAMBDA (&KEY (NAME NIL)) (DECLARE) (BLOCK MAKE-FOREIGN-SYMBOL (MAKE-FOREIGN-SYMBOL/1 NAME))) NIL T T
:pinfo PRIMITIVE-INFO-META-EVAL-FUNCTION (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-META-EVAL-FUNCTION (STRUCTURE-ELT S 7))) NIL T T
:pinfo DECLS-SPECIALS (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-SPECIALS (STRUCTURE-ELT S 1))) NIL T T
:pinfo COPY-PROC (S) NIL NIL NIL NIL NIL NIL T
:pinfo EMIT-SCOPE-CONTROL-TRANSFER (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-LINE (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo C-STRUCT-OP-INFO (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SPECIAL-VAR-P (VAR) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROC-FUNARG-REFS!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-FUNARG-REFS!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo TAG-CONTROL-TRANSFER-OUT-TYPE (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-NAME!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-INNER-PROC-TAIL?!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo VARIABLE-INFO-REF-BEFORE-DEF? (S) NIL (VARIABLE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-INFO-REF-BEFORE-DEF? (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CATCH-CONTROL-POINT-NAME (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-CONTROL-TRANSFER-OUT-TYPE!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-INNER-PROC-VARS-TO-DECLARE!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-VARS-TO-DECLARE!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-CATCH-CONTROL-POINT-LINE!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-VAR-OP-LINE!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-SPEC-BIND-SEQ-RESULT-NAME!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo FOREIGN-INFO-IN-TYPES (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-IN-TYPES (STRUCTURE-ELT S 4))) NIL T T
:pinfo MAKE-VARIABLE-INFO (&KEY (NAME NIL) (KIND NIL) (TYPE T) (CONSTANT-EXPR NIL) (REF-BEFORE-DEF? NIL)) NIL NIL NIL (LAMBDA (&KEY (NAME NIL) (KIND NIL) (TYPE T) (CONSTANT-EXPR NIL) (REF-BEFORE-DEF? NIL)) (DECLARE) (BLOCK MAKE-VARIABLE-INFO (MAKE-VARIABLE-INFO/5 NAME KIND TYPE CONSTANT-EXPR REF-BEFORE-DEF?))) NIL T T
:pinfo FUNCTION-INFO_INIT1198 NIL NIL NIL NIL NIL NIL NIL T
:pinfo CATCH-CONTROL-POINT-RESULT-NAME (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SEQ-LINE (S) NIL (SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SEQ-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo FLUID-COMPILER-METHOD-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo PRIMITIVE-CALL-INFO (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-NAMED-LOCAL-LETREC?!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-LETREC?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-CONTROL-TRANSFER-UNWIND-COUNT!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-UNWIND-COUNT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo COPY-IF (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CATCH-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-OUT-TYPE (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-NAMED-LOCAL-VALUES!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-VALUES!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-PROGN-TAIL?!@$ (S VALUE) NIL (PROGN T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGN-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-KEY-SUPPLIED-VAR!@$ (S VALUE) NIL (KEY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-KEY-SUPPLIED-VAR!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-MV-HOLDER (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo COMPILE-TOP-LEVEL-DEFINE-SETF (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LEX-ENV-DECLS!@$ (S VALUE) NIL (LEX-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LEX-ENV-DECLS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COMPILE-TOP-LEVEL-EVAL-WHEN (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo EMIT-STRING-USING-C-SYNTAX (STRING) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONFIG-ARGC-CHECK?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-ARGC-CHECK?!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo CONSTANT-EXPRESSION-VALUE (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONFIG-NAME!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COPY-STATIC-TAG-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-COMPILER-METHOD-META-EVAL-FUNCTION!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-META-EVAL-FUNCTION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo VAR-OP-OUT-TYPE (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo C-TYPE-INFO-NAME (S) NIL (C-TYPE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-TYPE-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo PROC-PACKAGE-ABBREV (SYM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-REF-MV-HOLDER!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo EMIT-TAG-CONTROL-TRANSFER (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-C-STRUCT-REF/10 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME STRUCT-INFO FIELD) NIL NIL NIL NIL NIL NIL T
:pinfo TREE-NSUBST-IF (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo COMPILE_INIT2109 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-FOREIGN-CALL-LINE!@$ (S VALUE) NIL (FOREIGN-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-CALL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo COPY-MACHINE (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-CODE-STRING!@$ (S VALUE) NIL (C-CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-CODE-STRING!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LEX-ENV-FUNCTIONS (S) NIL (LEX-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK LEX-ENV-FUNCTIONS (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-INFO-NAME!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-C-STRUCT-REF-NAME!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo FUNCTION-CALL-NAME (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo MAKE-CONTROL-TRANSFER/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME DESTINATION-POINT UNWIND-COUNT) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-FOREIGN-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo DECLS-FTYPES (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-FTYPES (STRUCTURE-ELT S 3))) NIL T T
:pinfo ANALYZE-RETURN-FROM (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo UNWIND-PROTECT-PROTECTED-FORM (S) NIL (UNWIND-PROTECT) NIL (LAMBDA (S) (DECLARE) (BLOCK UNWIND-PROTECT-PROTECTED-FORM (STRUCTURE-ELT S 6))) NIL T T
:pinfo FUNCTION-INFO-INS (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-INS (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-COMPILER-METHOD-INS!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-INS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-C-NAME!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-C-NAME!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo VAR-INFO-REST-VAR (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-REST-VAR (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-INFO-OUTS!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-OUTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-COMPILER-METHOD-IN-TYPES!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-IN-TYPES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo PROC-RESULT-NAME (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-FUNCTION-AND-METHOD-INFO-IN-TYPES!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-IN-TYPES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-PROGN-RESULT-NAME!@$ (S VALUE) NIL (PROGN T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGN-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo INLINE-MV-CALL-RESULT-NAME (S) NIL (INLINE-MV-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK INLINE-MV-CALL-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo PRIMITIVE-INFO-OUTS (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-OUTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-SWITCH-KEYS!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-KEYS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-PARENT (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo C-STRUCT-OP-STRUCT-INFO (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-STRUCT-INFO (STRUCTURE-ELT S 9))) NIL T T
:pinfo LOOKUP-OUTER-ENVIRONMENT-OFFSET (VAR) NIL NIL NIL NIL NIL NIL T
:pinfo IF-MV-HOLDER (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-PROC-RESULT-NAME!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-LIBRARY-LISP-FILES!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-LISP-FILES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo VAR-NUM-DEFS (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-NUM-DEFS (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-INLINE-MV-CALL-NEW-HOLDER!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-NEW-HOLDER!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo COPY-FOREIGN-CALL (S) NIL NIL NIL NIL NIL NIL T
:pinfo TOP-LEVEL-PROC-OE-VAR (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-OE-VAR (STRUCTURE-ELT S 13))) NIL T T
:pinfo SET-INNER-PROC-LINE!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-RECEIVE-VAR (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-RECEIVE-VAR (STRUCTURE-ELT S 10))) NIL T T
:pinfo C-ARRAY-INFO-ELEMENT-TYPE (S) NIL (C-ARRAY-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-ARRAY-INFO-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-UNNAMED-CALL-NAME!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo TAG-CONTROL-POINT-ID (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo C-STRUCT-SLOT-NAME (S) NIL (C-STRUCT-SLOT) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-SLOT-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo DECLS-INLINES (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-INLINES (STRUCTURE-ELT S 4))) NIL T T
:pinfo COPY-C-STRUCT-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo ANALYZE-VALUES (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-LEX-ENV-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SEQ-TAIL?!@$ (S VALUE) NIL (SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SEQ-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-CONFIG-INLINE-CALLS?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-INLINE-CALLS?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo PUSH-BASIC-OPT-VARS-ONTO-ENV (O) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CATCH-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-CATCH-CONTROL-POINT-REFS!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo CONTROL-POINT-MV-HOLDER (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo BASIC-OPTIONAL-INIT-FORM (S) NIL (BASIC-OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK BASIC-OPTIONAL-INIT-FORM (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-VAR-INFO-RESTV-VAR!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-RESTV-VAR!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo LAMBDA-EXPR? (L) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROC-TAIL?!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MVALUES-LINE (S) NIL (MVALUES) NIL (LAMBDA (S) (DECLARE) (BLOCK MVALUES-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-PRIMITIVE-CALL-RESULT-NAME!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-BODY!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo TYPE->TYPE-CODES (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-MACHINE-PROCESSOR!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-PROCESSOR!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo LIBRARY-NAME (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo INNER-PROC-MAX-TMP-VAR-COUNT (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-MAX-TMP-VAR-COUNT (STRUCTURE-ELT S 10))) NIL T T
:pinfo RECORD-C-INFO-REFERENCE (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo DEFINE-FOREIGN-FUNCTION (NAME FOREIGN-NAME INS OUTS IN-TYPES OUT-TYPES) NIL NIL NIL NIL NIL NIL T
:pinfo SET-APPLICATION-SYMBOL-FLAGS!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-FLAGS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo DYNAMIC-CONTROL-POINT-P (X) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-CALL-MV-HOLDER (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo EMIT-FOREIGN-SYMBOL (X) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-PRIMITIVE-INFO/8 (NAME INS OUTS IN-TYPES OUT-TYPES META-EVAL-ARG-TYPES META-EVAL-FUNCTION EMITTER) NIL NIL NIL NIL NIL NIL T
:pinfo BASIC-CC-STRING NIL NIL NIL NIL NIL NIL NIL T
:pinfo CODE-WITH-SIDE-EFFECTS? (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-PRIMITIVE-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-PROGN-IF-NEEDED (BODY) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-REF-FIELD!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-FIELD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo INITIALIZE-COMPILER-MACROS NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-FOREIGN-INFO-IN-TYPE-OBJECTS!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-IN-TYPE-OBJECTS!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo EMIT-C-DEFINITION (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo PROC-INFO-NAME (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-RESULT-NAME (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo NEW-SYMBOL-TABLE NIL NIL NIL NIL NIL NIL NIL T
:pinfo C-STRUCT-DEF-OUT-TYPE (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo FLUID-VAR-DEF-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-INFO-IN-TYPE-OBJECTS (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-IN-TYPE-OBJECTS (STRUCTURE-ELT S 10))) NIL T T
:pinfo PROC-FUNARG-REFS (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-FUNARG-REFS (STRUCTURE-ELT S 12))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-C-NAME (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-C-NAME (STRUCTURE-ELT S 10))) NIL T T
:pinfo SWITCH-TEST (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-TEST (STRUCTURE-ELT S 7))) NIL T T
:pinfo PRIMITIVE-INFO-OUT-TYPES (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-OUT-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-REFS!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SCOPE-SEQ-MV-HOLDER (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo MAKE-MVALUES/6 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TAG-SEQ-RESULT-NAME!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-INLINE-MV-CALL-TAIL?!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo VARIABLE-INFO-CONSTANT-EXPR (S) NIL (VARIABLE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-INFO-CONSTANT-EXPR (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FUNCTION-VAR-NAME!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-POINT-LINE (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo COMPILE-TOP-LEVEL-DEFINE-FOREIGN-FUNCTION (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-KEY-INIT-FORM-EXPRESSION!@$ (S VALUE) NIL (KEY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-KEY-INIT-FORM-EXPRESSION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-SCOPE-CONTROL-TRANSFER-LINE!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SIMPLE-CONSTANT? (X) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-AND-METHOD-INFO-META-EVAL-FUNCTION (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-META-EVAL-FUNCTION (STRUCTURE-ELT S 7))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-RECEIVE-VAR (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-RECEIVE-VAR (STRUCTURE-ELT S 10))) NIL T T
:pinfo MAKE-PROC/15 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY VAR-INFO NAME C-NAME MAX-TMP-VAR-COUNT VARS-TO-DECLARE FUNARG-REFS OE-VAR START-LABEL VOLATILE) NIL NIL NIL NIL NIL NIL T
:pinfo BIT-VECTOR->WORD-LIST (BIT-VECTOR) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TAG-CONTROL-TRANSFER-UNWIND-COUNT!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-UNWIND-COUNT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo VAR-NUM-REFS (S) NIL (VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-NUM-REFS (STRUCTURE-ELT S 6))) NIL T T
:pinfo SEQ-BODY (S) NIL (SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SEQ-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-MV-HOLDER (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-NAMED-CALL-INFO!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-PROC-INFO-OUT-TYPES!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-OUT-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-APPLICATION-SYMBOL-PLIST!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-PLIST!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-TAIL? (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo HAIRY-LAMBDA-LIST? (LAMBDA-LIST) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-DEF-FIELD!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-FIELD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo PRIMITIVE-INFO-IN-TYPES (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-IN-TYPES (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-INLINE-MV-CALL-BODY!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo IF-TEST (S) NIL (IF) NIL (LAMBDA (S) (DECLARE) (BLOCK IF-TEST (STRUCTURE-ELT S 7))) NIL T T
:pinfo VAR-DEF-VAR (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-VAR (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-CONFIG-INDIRECT-CALLS?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-INDIRECT-CALLS?!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-CALL-ARGS!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo VAR-DEF-TAIL? (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-C-NAME!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-C-NAME!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-PROC-INFO-META-EVAL-ARG-TYPES!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-META-EVAL-ARG-TYPES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LOOKUP-INITIALIZED-LIBRARY (LIB-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo LIBRARY-C-TYPE-INFO (S) NIL (LIBRARY) NIL (LAMBDA (S) (DECLARE) (BLOCK LIBRARY-C-TYPE-INFO (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-PROC-INFO-INLINE?!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-INLINE?!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo MACHINE-LINK-LIBRARIES (S) NIL (MACHINE) NIL (LAMBDA (S) (DECLARE) (BLOCK MACHINE-LINK-LIBRARIES (STRUCTURE-ELT S 7))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-PARENT (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo FUNCTION-CALL-SIDE-EFFECTS? (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INNER-PROC-OE-VAR!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-OE-VAR!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo FOREIGN-CALL-RESULT-NAME (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-SCOPE-SEQ-RESULT-NAME!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo MACROS_INIT1177 NIL NIL NIL NIL NIL NIL NIL T
:pinfo NAMED-LOCAL-LINE (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo ELAPSED-LINK-TIME NIL NIL NIL NIL NIL NIL NIL T
:pinfo PROGN-TAIL? (S) NIL (PROGN) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGN-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo CURRENT-PROC NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-SEQ-OUT-TYPE!@$ (S VALUE) NIL (SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SEQ-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-VALUES-SEQ-RESULT-NAME!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-INLINE-MV-CALL-OUT-TYPE!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-C-STRUCT-OP-ARGS!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-INNER-PROC-PASS-ON-OE?!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-PASS-ON-OE?!@$ (SET-STRUCTURE-ELT S 17 VALUE))) NIL T T
:pinfo DELETE-PROC-INFO (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-VAR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INNER-PROC-MAX-TMP-VAR-COUNT!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-MAX-TMP-VAR-COUNT!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo C-STRUCT-DEF-RESULT-NAME (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-UNWIND-PROTECT-CLEANUP-FORM!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-CLEANUP-FORM!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo MAKE-STATIC-SCOPE-CONTROL-POINT/12 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR C-NAME CONVERT?) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-SEQ-MV-HOLDER!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COPY-APPLICATION-SYMBOL (S) NIL NIL NIL NIL NIL NIL T
:pinfo TAG-CONTROL-TRANSFER-UNWIND-COUNT (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-UNWIND-COUNT (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-FUNCTION-AND-METHOD-INFO-INS!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-INS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COMPILE-DEFINE-COMPILER-MACRO-1 (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-COMPILER-DEBUG-SWITCH!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-DEBUG-SWITCH!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo TAG-CONTROL-TRANSFER-RESULT-NAME (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo UNNAMED-CALL-SPREAD-ARGS? (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-SPREAD-ARGS? (STRUCTURE-ELT S 9))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-CONVERT? (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-CONVERT? (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-APPLICATION-PACKAGE-SYMBOLS!@$ (S VALUE) NIL (APPLICATION-PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-PACKAGE-SYMBOLS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo PRIMITIVE-CALL-RESULT-NAME (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo C-STRUCT-DEF-FIELD (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-FIELD (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-MVALUES-MV-HOLDER!@$ (S VALUE) NIL (MVALUES T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MVALUES-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-C-STRUCT-DEF-MV-HOLDER!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-ID!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo LIBRARY-INFO-FILE (LIB-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VALUES-SEQ-OUT-TYPE!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-ID (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo INNER-PROC-PASS-ON-OE? (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-PASS-ON-OE? (STRUCTURE-ELT S 17))) NIL T T
:pinfo SET-CONTROL-POINT-ID!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-INFO-INS!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-INS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FOREIGN-INFO-INS (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-INS (STRUCTURE-ELT S 2))) NIL T T
:pinfo SWITCH-MV-HOLDER (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo FUNCTION-VAR-DEFINITE-TYPE (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-DEFINITE-TYPE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-C-NAME!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-C-NAME!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-NAMED-LOCAL-MV-HOLDER!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CATCH-CONTROL-POINT-MV-HOLDER (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-LIBRARY-LOAD-DATE!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-LOAD-DATE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-PROC-INFO-NAME!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-FUNCTION-VAR-DYNAMIC-EXTENT?!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-DYNAMIC-EXTENT?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-LINE (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo VARIABLE-VAR-NUM-REFS (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-NUM-REFS (STRUCTURE-ELT S 6))) NIL T T
:pinfo C-TYPE-INFO-CONVERT-TO-C (S) NIL (C-TYPE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-TYPE-INFO-CONVERT-TO-C (STRUCTURE-ELT S 4))) NIL T T
:pinfo COPY-TOP-LEVEL-PROC (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-DYNAMIC-TAG-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo APPLICATION-SYMBOL-VALUE (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-VALUE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-LEX-ENV-VARIABLES!@$ (S VALUE) NIL (LEX-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LEX-ENV-VARIABLES!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo PROC-INFO-IN-TYPES (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-IN-TYPES (STRUCTURE-ELT S 4))) NIL T T
:pinfo APPLICATION-SYMBOL-FUNCTION (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-FUNCTION (STRUCTURE-ELT S 6))) NIL T T
:pinfo READ-ALL-LIBRARIES-COMPILER-INFO NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROC-INFO-OUTS!@$ (S VALUE) NIL (PROC-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-INFO-OUTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo LEGAL-SHORTHAND-TYPE-DECL-P (TYPE-SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CODE-TAIL?!@$ (S VALUE) NIL (CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CODE-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo UNWIND-PROTECT-RESULT-NAME (S) NIL (UNWIND-PROTECT) NIL (LAMBDA (S) (DECLARE) (BLOCK UNWIND-PROTECT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-OPTIONAL-INIT-FORM-EXPRESSION!@$ (S VALUE) NIL (OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-OPTIONAL-INIT-FORM-EXPRESSION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CONTROL-POINT-TAIL? (S) NIL (CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo CODE-MV? (CODE) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-C-CODE (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TOP-LEVEL-PROC-MV-HOLDER!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-FUNCTION-CALL-LINE!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-FOREIGN-INFO-FOREIGN-NAME!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-FOREIGN-NAME!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo CONTROL-TRANSFER-LINE (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FUNCTION-INFO-NAME!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo VAR-OP-RESULT-NAME (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-VARIABLE-VAR-C-NAME!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-C-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COMPILER-METHOD-TRANSFORM (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-TRANSFORM (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-CONTROL-TRANSFER-LINE!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-POINT-RESULT-NAME (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo FUNCTION-VAR-NUM-DEFS (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-NUM-DEFS (STRUCTURE-ELT S 7))) NIL T T
:pinfo VAR-REF-INNERMOST-PROC (S) NIL (VAR-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-REF-INNERMOST-PROC (STRUCTURE-ELT S 7))) NIL T T
:pinfo SCOPE-CONTROL-POINT-TAIL? (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-VARIABLE-VAR-DECLARED-OK-TO-IGNORE?!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-DECLARED-OK-TO-IGNORE?!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo BRANCH-TEST (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-TEST (STRUCTURE-ELT S 7))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-OUT-TYPE (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-SCOPE-SEQ-LINE!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-OUT-TYPE!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-IF-TAIL?!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo INNER-PROC-START-LABEL (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-START-LABEL (STRUCTURE-ELT S 14))) NIL T T
:pinfo VARIABLE-VAR-INNERMOST-PROC (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-INNERMOST-PROC (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-FUNCTION-INFO-OUTS!@$ (S VALUE) NIL (FUNCTION-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-INFO-OUTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo EMIT-SYMBOL-TABLE-SYMBOL-ARRAYS (SYMBOL-TABLE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SPEC-BIND-SEQ-VALUES!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-VALUES!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo FLUID-SCOPE-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo COMPILE-DEFINE-TYPE (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo PRIMITIVE-INFO-NAME (S) NIL (PRIMITIVE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-SEQ-LINE!@$ (S VALUE) NIL (SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SEQ-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo PROC-OE-VAR (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-OE-VAR (STRUCTURE-ELT S 13))) NIL T T
:pinfo MAKE-STATIC-TAG-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (C-NAME NIL) (CONVERT? NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (C-NAME NIL) (CONVERT? NIL)) (DECLARE) (BLOCK MAKE-STATIC-TAG-CONTROL-POINT (MAKE-STATIC-TAG-CONTROL-POINT/11 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID C-NAME CONVERT?))) NIL T T
:pinfo SET-CODE-MV-HOLDER!@$ (S VALUE) NIL (CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CODE-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FLUID-CODE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-PROGN-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-DEF-TAIL?!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-CODE-RESULT-NAME!@$ (S VALUE) NIL (CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CODE-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-C-NAME (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-C-NAME (STRUCTURE-ELT S 9))) NIL T T
:pinfo NAMED-LOCAL-TAIL? (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-FOREIGN-INFO-METHODS!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-METHODS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo CODE-LINE (S) NIL (CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK CODE-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo C-STRUCT-DEF-LINE (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-FOREIGN-INFO-INS!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-INS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-VAR-OP-TAIL?!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-VAR-OP-RESULT-NAME!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-FUNCTION-VAR-POSSIBLE-TYPES!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-POSSIBLE-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-DYNAMIC-SCOPE-CONTROL-POINT-RECEIVE-VAR!@$ (S VALUE) NIL (DYNAMIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-SCOPE-CONTROL-POINT-RECEIVE-VAR!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo LEGAL-C-VAR-CHAR? (CHAR) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-LINE!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-NAMED-LOCAL-LINE!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-UNWIND-PROTECT-LINE!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo CONFIG-IMPROVE? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-IMPROVE? (STRUCTURE-ELT S 13))) NIL T T
:pinfo COPY-C-TYPE-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-FUNCTION-AND-METHOD-INFO/8 (NAME INS OUTS IN-TYPES OUT-TYPES META-EVAL-ARG-TYPES META-EVAL-FUNCTION METHODS) NIL NIL NIL NIL NIL NIL T
:pinfo TAG-CONTROL-POINT-C-NAME (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-C-NAME (STRUCTURE-ELT S 10))) NIL T T
:pinfo LEX-ENV-OUTERMOST-FORM (S) NIL (LEX-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK LEX-ENV-OUTERMOST-FORM (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-MVALUES-OUT-TYPE!@$ (S VALUE) NIL (MVALUES T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MVALUES-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo DECLS-DYNAMIC-EXTENTS (S) NIL (DECLS) NIL (LAMBDA (S) (DECLARE) (BLOCK DECLS-DYNAMIC-EXTENTS (STRUCTURE-ELT S 7))) NIL T T
:pinfo MAKE-UNWIND-PROTECT/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME PROTECTED-FORM CLEANUP-FORM) NIL NIL NIL NIL NIL NIL T
:pinfo COMPILER-METHOD-NEW-FUNCTION (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-NEW-FUNCTION (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-SWITCH-OUT-TYPE!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-POINT-MV-HOLDER (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-FUNCTION-CALL-RESULT-NAME!@$ (S VALUE) NIL (FUNCTION-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-CALL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-MACHINE-OPERATING-SYSTEM!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-OPERATING-SYSTEM!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FLUID-DECLS-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-MACHINE-NAME!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-PROGN-BODY!@$ (S VALUE) NIL (PROGN T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGN-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FLUID-UNWIND-PROTECT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo CONFIG-INLINE-CALLS? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-INLINE-CALLS? (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-PRIMITIVE-INFO-NAME!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STATIC-TAG-CONTROL-POINT-LINE (S) NIL (STATIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-TAG-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-UNWIND-COUNT (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-UNWIND-COUNT (STRUCTURE-ELT S 7))) NIL T T
:pinfo FUNCTION-AND-METHOD-INFO-META-EVAL-ARG-TYPES (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-META-EVAL-ARG-TYPES (STRUCTURE-ELT S 6))) NIL T T
:pinfo FOREIGN-CALL-OUT-TYPE (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-SWITCH-INLINE-TEST?!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-INLINE-TEST?!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo CONSTANT-MV-HOLDER (S) NIL (CONSTANT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONSTANT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo COPY-FOREIGN-SYMBOL (S) NIL NIL NIL NIL NIL NIL T
:pinfo COMPILER-METHOD-INS (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-INS (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-APPLICATION-SYMBOL-USED-AS-DATA?!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-USED-AS-DATA?!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo MAKE-VAR-DEF/8 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME VAR INNERMOST-PROC VALUE) NIL NIL NIL NIL NIL NIL T
:pinfo C-CODE-RESULT-NAME (S) NIL (C-CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK C-CODE-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-C-STRUCT-OP-LINE!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-PRIMITIVE-CALL-OUT-TYPE!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo MAKE-CONSTANT/6 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME DATA) NIL NIL NIL NIL NIL NIL T
:pinfo DELETE-UNDEFINED-FUNCTION (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-INFO-SLOTS!@$ (S VALUE) NIL (C-STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-INFO-SLOTS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo LOOKUP-DYNAMIC-EXTENT-DECL (VAR) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-AND-METHOD-INFO-INS (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-INS (STRUCTURE-ELT S 2))) NIL T T
:pinfo CREATE-AUX (AUX) NIL NIL NIL NIL NIL NIL T
:pinfo INITIALIZE-FUNCTION-INFO-TABLE NIL NIL NIL NIL NIL NIL NIL T
:pinfo COPY-PRIMITIVE-CALL (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LEX-ENV-TAGS!@$ (S VALUE) NIL (LEX-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LEX-ENV-TAGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MAKE-SCOPE-SEQ/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY CONTROL-POINT) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-SCOPE-SEQ-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-NUM-REFS!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-NUM-REFS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-ID (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo TOP-LEVEL-PROC-START-LABEL (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-START-LABEL (STRUCTURE-ELT S 14))) NIL T T
:pinfo COMPILE-DEFINE-FUNCTION (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-REF-INFO!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo PROC-INFO-META-EVAL-FUNCTION (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-META-EVAL-FUNCTION (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-INNER-PROC-PARENT-CHAIN!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-PARENT-CHAIN!@$ (SET-STRUCTURE-ELT S 18 VALUE))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-LINE!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-KEY-VAR!@$ (S VALUE) NIL (KEY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-KEY-VAR!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-POINT-OUT-TYPE (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo UNNAMED-CALL-ARGS (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo APPLICATION-SYMBOL-HASH-CODE (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-HASH-CODE (STRUCTURE-ELT S 7))) NIL T T
:pinfo LEX-ENV-VARIABLES (S) NIL (LEX-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK LEX-ENV-VARIABLES (STRUCTURE-ELT S 3))) NIL T T
:pinfo FUNCTION-CALL-RESULT-NAME (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-VAR-DECLARED-OK-TO-IGNORE?!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DECLARED-OK-TO-IGNORE?!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo UNIQUE-CONTROL-POINT-TAG (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SWITCH-DEFAULT!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-DEFAULT!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo C-STRUCT-INFO-NAME (S) NIL (C-STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo FLUID-PROC-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNNAMED-CALL-LINE!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo UNWIND-PROTECT-OUT-TYPE (S) NIL (UNWIND-PROTECT) NIL (LAMBDA (S) (DECLARE) (BLOCK UNWIND-PROTECT-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-VARS-TO-DECLARE!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-VARS-TO-DECLARE!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo DYNAMIC-TAG-CONTROL-POINT-REFS (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-APPLICATION-SYMBOL-FUNCTION!@$ (S VALUE) NIL (APPLICATION-SYMBOL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-APPLICATION-SYMBOL-FUNCTION!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-TAIL? (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo FLUID-FUNCTION-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TAG-CONTROL-POINT-REFS!@$ (S VALUE) NIL (TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo PROC-LINE (S) NIL (PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo TOP-LEVEL-PROC-BODY (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo BRANCH-TAIL? (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo EMIT-SYMBOL-TABLE-SYMBOLS (SYMBOL-TABLE) NIL NIL NIL NIL NIL NIL T
:pinfo PROC-INFO-LAMBDA-EXPR (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-LAMBDA-EXPR (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-UNWIND-PROTECT-OUT-TYPE!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo EMIT-FOREIGN-DEFINITION (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-CALL-LINE (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-C-STRUCT-REF-TAIL?!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo CONTROL-TRANSFER-RESULT-NAME (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo CATCH-CONTROL-POINT-RECEIVE-VAR (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-RECEIVE-VAR (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-INNER-PROC-START-LABEL!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-START-LABEL!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-UNNAMED-CALL-TAIL?!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MVALUES-ARGS (S) NIL (MVALUES) NIL (LAMBDA (S) (DECLARE) (BLOCK MVALUES-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo FUNCTION-CALL-OUT-TYPE (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo FUNCTION-VAR-DYNAMIC-EXTENT? (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-DYNAMIC-EXTENT? (STRUCTURE-ELT S 9))) NIL T T
:pinfo SEQ-OUT-TYPE (S) NIL (SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SEQ-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-TAG-NAME (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-TAG-NAME (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-ID!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-ID!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo EMIT-PROC-PROTOTYPE (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo VARIABLE-VAR-POSSIBLE-TYPES (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-POSSIBLE-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo FOREIGN-CALL-ARGS (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo TAIL-LEAVES (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-DEF-LINE!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-OUT-TYPE (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo LOOKUP-LIBRARY (LIB-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-INFO-META-EVAL-ARG-TYPES (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-META-EVAL-ARG-TYPES (STRUCTURE-ELT S 6))) NIL T T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-LINE (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-SPEC-BIND-SEQ-LINE!@$ (S VALUE) NIL (SPEC-BIND-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SPEC-BIND-SEQ-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-RECEIVE-VAR (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-RECEIVE-VAR (STRUCTURE-ELT S 10))) NIL T T
:pinfo LEX-ENV-BLOCKS (S) NIL (LEX-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK LEX-ENV-BLOCKS (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-PROC-BODY!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MVALUES-OUT-TYPE (S) NIL (MVALUES) NIL (LAMBDA (S) (DECLARE) (BLOCK MVALUES-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-C-COMPILER-OPTIMIZER-SWITCHES!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-OPTIMIZER-SWITCHES!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo LINK-MSG (MSG) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INNER-PROC-BODY!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo COPY-LIBRARY (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-DYNAMIC-TAG-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo CONTROL-TRANSFER-DESTINATION-POINT (S) NIL (CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-TRANSFER-DESTINATION-POINT (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-CONTROL-POINT-PARENT!@$ (S VALUE) NIL (CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-POINT-PARENT!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo TAG-SEQ-OUT-TYPE (S) NIL (TAG-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-SEQ-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo C-STRUCT-OP-MV-HOLDER (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-VAR-OP-MV-HOLDER!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-CONFIG-LISP-LINE-NUMBERS?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-LISP-LINE-NUMBERS?!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-VAR-INFO (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-VAR-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo IMPROVE-CONTROL-POINT (TREE) NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-SCOPE-CONTROL-POINT-TAIL? (S) NIL (DYNAMIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-SCOPE-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-SCOPE-CONTROL-TRANSFER-RESULT-NAME!@$ (S VALUE) NIL (SCOPE-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-TRANSFER-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo GET-OR-CREATE-PROC-INFO (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-INLINE-MV-CALL/9 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY VALUES NEW-HOLDER VAR-INFO) NIL NIL NIL NIL NIL NIL T
:pinfo SWITCH-OUT-TYPE (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-STATIC-SCOPE-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (STATIC-SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-SCOPE-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-NAMED-CALL-OUT-TYPE!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo BASIC-OPTIONAL-SUPPLIED-VAR (S) NIL (BASIC-OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK BASIC-OPTIONAL-SUPPLIED-VAR (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-C-CODE-MV-HOLDER!@$ (S VALUE) NIL (C-CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-CODE-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-MVALUES-ARGS!@$ (S VALUE) NIL (MVALUES T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MVALUES-ARGS!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo ADD-TYPE-DECLS (TYPE-SPEC VARS EXISTING-TYPE-DECLS) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-FUNCTION-CALL (S) NIL NIL NIL NIL NIL NIL T
:pinfo VARIABLE-INFO-NAME (S) NIL (VARIABLE-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-INFO-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-COMPILER-METHOD-OUT-TYPES!@$ (S VALUE) NIL (COMPILER-METHOD T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-METHOD-OUT-TYPES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo COMPILER-METHOD-IN-TYPES (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-IN-TYPES (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-VARIABLE-VAR-DYNAMIC-EXTENT?!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-DYNAMIC-EXTENT?!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-NAMED-CALL-NAME!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-VARIABLE-INFO-REF-BEFORE-DEF?!@$ (S VALUE) NIL (VARIABLE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-INFO-REF-BEFORE-DEF?!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TREE-NSUBST-VAR-DEF (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo CATCH-CONTROL-POINT-REFS (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo FLUID-VAR-OP-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-FOREIGN-CALL/8 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-INFO-NAME!@$ (S VALUE) NIL (C-STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo NEW-DECL-ENV (DECLS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STATIC-TAG-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FLUID-INLINE-MV-CALL-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VALUES-SEQ-MV-HOLDER!@$ (S VALUE) NIL (VALUES-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VALUES-SEQ-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo MAKE-FOREIGN-SYMBOL/1 (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PRIMITIVE-INFO-META-EVAL-ARG-TYPES!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-META-EVAL-ARG-TYPES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MAKE-TAG-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (C-NAME NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (C-NAME NIL)) (DECLARE) (BLOCK MAKE-TAG-CONTROL-POINT (MAKE-TAG-CONTROL-POINT/10 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID C-NAME))) NIL T T
:pinfo SET-BASIC-OPTIONAL-SUPPLIED-VAR!@$ (S VALUE) NIL (BASIC-OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BASIC-OPTIONAL-SUPPLIED-VAR!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo BRANCH-INLINE-TEST? (S) NIL (BRANCH) NIL (LAMBDA (S) (DECLARE) (BLOCK BRANCH-INLINE-TEST? (STRUCTURE-ELT S 6))) NIL T T
:pinfo LEX-ENV-TAGS (S) NIL (LEX-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK LEX-ENV-TAGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-REFS!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-REFS!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-PROC-OE-VAR!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-OE-VAR!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo VAR-OP-INNERMOST-PROC (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-INNERMOST-PROC (STRUCTURE-ELT S 7))) NIL T T
:pinfo TREE-NSUBST-VALUES (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo NAMED-CALL-MV-HOLDER (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo READ-LIBRARY-COMPILER-INFO (LIB-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo INITIALIZE-FUNCTION-METHODS NIL NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-C-ARRAY-INFO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo VAR-DEF-INNERMOST-PROC (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-INNERMOST-PROC (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-CONSTANT-LINE!@$ (S VALUE) NIL (CONSTANT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONSTANT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-INNER-PROC-OUT-TYPE!@$ (S VALUE) NIL (INNER-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INNER-PROC-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo TAG-SEQ-CONTROL-POINTS (S) NIL (TAG-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-SEQ-CONTROL-POINTS (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-PROC-VAR-INFO!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-VAR-INFO!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-PROC-VARS-TO-DECLARE!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-VARS-TO-DECLARE!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-TOP-LEVEL-PROC-NAME!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-PARENT (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo VARIABLE-VAR-DYNAMIC-EXTENT? (S) NIL (VARIABLE-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK VARIABLE-VAR-DYNAMIC-EXTENT? (STRUCTURE-ELT S 9))) NIL T T
:pinfo TAG-SEQ-RESULT-NAME (S) NIL (TAG-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-SEQ-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo C-STRUCT-REF-MV-HOLDER (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo COMPILE-TOP-LEVEL-PROGN (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-VALUES-SEQ-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FOREIGN-INFO-META-EVAL-FUNCTION!@$ (S VALUE) NIL (FOREIGN-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FOREIGN-INFO-META-EVAL-FUNCTION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-VARIABLE-VAR-EXTENT!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-EXTENT!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo INNER-PROC-LINE (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo CATCH-CONTROL-POINT-PARENT (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo MAKE-STATIC-TAG-CONTROL-POINT/11 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID C-NAME CONVERT?) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TAG-SEQ-CONTROL-POINTS!@$ (S VALUE) NIL (TAG-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-SEQ-CONTROL-POINTS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo APPLICATION-PACKAGE-HOST-PACKAGE (S) NIL (APPLICATION-PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-PACKAGE-HOST-PACKAGE (STRUCTURE-ELT S 1))) NIL T T
:pinfo FUNCTION-CALL-TAIL? (S) NIL (FUNCTION-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-CALL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-PROGN-MV-HOLDER!@$ (S VALUE) NIL (PROGN T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGN-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PROC-INFO-OUTS (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-OUTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo SCOPE-CONTROL-TRANSFER-MV-HOLDER (S) NIL (SCOPE-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-TRANSFER-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo MAKE-CODE/5 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo CONFIG-INDIRECT-CALLS? (S) NIL (CONFIG) NIL (LAMBDA (S) (DECLARE) (BLOCK CONFIG-INDIRECT-CALLS? (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-BRANCH-MV-HOLDER!@$ (S VALUE) NIL (BRANCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BRANCH-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo C-STRUCT-REF-STRUCT-INFO (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-STRUCT-INFO (STRUCTURE-ELT S 9))) NIL T T
:pinfo C-COMPILER-POSITION-INDEPENDENT-CODE-SWITCH (S) NIL (C-COMPILER) NIL (LAMBDA (S) (DECLARE) (BLOCK C-COMPILER-POSITION-INDEPENDENT-CODE-SWITCH (STRUCTURE-ELT S 5))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-TAIL? (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-PROC-START-LABEL!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-START-LABEL!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo COPY-VALUES-SEQ (S) NIL NIL NIL NIL NIL NIL T
:pinfo UNNAMED-CALL-FUNCTION-FORM (S) NIL (UNNAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK UNNAMED-CALL-FUNCTION-FORM (STRUCTURE-ELT S 10))) NIL T T
:pinfo C-PATHNAME (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo COMF-TOP-LEVEL-FORM (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo EMIT-MISC-STORAGE-DECLS (INFO) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LIBRARY-OTHER-OBJECT-FILES!@$ (S VALUE) NIL (LIBRARY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LIBRARY-OTHER-OBJECT-FILES!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-TAG-CONTROL-TRANSFER-OUT-TYPE!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo PRIMITIVE-CALL-ARGS (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-ARGS (STRUCTURE-ELT S 6))) NIL T T
:pinfo VAR-DEF-VALUE (S) NIL (VAR-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-DEF-VALUE (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-C-COMPILER-POSITION-INDEPENDENT-CODE-SWITCH!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-POSITION-INDEPENDENT-CODE-SWITCH!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SPEC-BIND-SEQ-MV-HOLDER (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo CONFIGURATION-FILE-NAME NIL NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-TAG-CONTROL-POINT-NAME (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-STATIC-TAG-CONTROL-POINT-NAME!@$ (S VALUE) NIL (STATIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STATIC-TAG-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo GET-OR-CREATE-VARIABLE-INFO (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SPEC-BIND-SEQ-OUT-TYPE (S) NIL (SPEC-BIND-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SPEC-BIND-SEQ-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo PRIMITIVE-CALL-MV-HOLDER (S) NIL (PRIMITIVE-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK PRIMITIVE-CALL-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-SCOPE-CONTROL-POINT-TAIL?!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo LOOKUP-TYPE-DECL (VAR) NIL NIL NIL NIL NIL NIL T
:pinfo C-CODE-OUT-TYPE (S) NIL (C-CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK C-CODE-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo TAG-CONTROL-TRANSFER-TAIL? (S) NIL (TAG-CONTROL-TRANSFER) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-TRANSFER-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo PROC-INFO-OUT-TYPES (S) NIL (PROC-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK PROC-INFO-OUT-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo COMPILER-METHOD-META-EVAL-ARG-TYPES (S) NIL (COMPILER-METHOD) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-METHOD-META-EVAL-ARG-TYPES (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-FUNCTION-VAR-DECLARED-OK-TO-IGNORE?!@$ (S VALUE) NIL (FUNCTION-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-VAR-DECLARED-OK-TO-IGNORE?!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo CODE-TAIL? (S) NIL (CODE) NIL (LAMBDA (S) (DECLARE) (BLOCK CODE-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo NAMED-CALL-LINE (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo ANALYZE-QUOTE (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN-INFO-FOREIGN-NAME (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-FOREIGN-NAME (STRUCTURE-ELT S 9))) NIL T T
:pinfo MAKE-DYNAMIC-TAG-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (C-NAME NIL) (TAG-NAME NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (C-NAME NIL) (TAG-NAME NIL)) (DECLARE) (BLOCK MAKE-DYNAMIC-TAG-CONTROL-POINT (MAKE-DYNAMIC-TAG-CONTROL-POINT/11 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID C-NAME TAG-NAME))) NIL T T
:pinfo LIST-BASIC-OPTIONAL-VARS (O) NIL NIL NIL NIL NIL NIL T
:pinfo GET-VARIABLE-INFO (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-OPTIONAL-INIT-FORM!@$ (S VALUE) NIL (OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-OPTIONAL-INIT-FORM!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SWITCH-INLINE-TEST? (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-INLINE-TEST? (STRUCTURE-ELT S 6))) NIL T T
:pinfo COMPILE-TOP-LEVEL-PROCLAIM (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-NAMED-LOCAL (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PRIMITIVE-INFO-EMITTER!@$ (S VALUE) NIL (PRIMITIVE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-INFO-EMITTER!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-IF-ELSE!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-ELSE!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo OPTIMIZE-SIMPLE-MEMBER (FORM TEST X LIST) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-TAG-SEQ-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (SCOPE-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo MAKE-VALUES-SEQ/7 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME BODY VALUES) NIL NIL NIL NIL NIL NIL T
:pinfo LISP->C-NAME (LEADER NAME TRAILER) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-SPEC-BIND-SEQ (S) NIL NIL NIL NIL NIL NIL T
:pinfo C-STRUCT-OP-RESULT-NAME (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo VAR-INFO-OPTIONALS (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-OPTIONALS (STRUCTURE-ELT S 2))) NIL T T
:pinfo EMIT-APPLICATION-SYMBOL (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-ARRAY-INFO-ELEMENT-TYPE!@$ (S VALUE) NIL (C-ARRAY-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-ARRAY-INFO-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo TREE-NSUBST-SWITCH (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo DYNAMIC-TAG-CONTROL-POINT-C-NAME (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-C-NAME (STRUCTURE-ELT S 10))) NIL T T
:pinfo MAKE-NAMED-CALL/9 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME ARGS INFO NAME EMIT-AS-GOTO?) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-REF-OUT-TYPE!@$ (S VALUE) NIL (C-STRUCT-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-REF-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-VAR-OP-VAR!@$ (S VALUE) NIL (VAR-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-OP-VAR!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MAKE-LIBRARY/11 (NAME DIRECTORY VERSION LOAD-DATE LISP-FILES SYMBOL-TABLE PROCEDURE-INFO C-TYPE-INFO PROCLAIMS INIT-THUNK OTHER-OBJECT-FILES) NIL NIL NIL NIL NIL NIL T
:pinfo LEX-ENV-DECLS (S) NIL (LEX-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK LEX-ENV-DECLS (STRUCTURE-ELT S 2))) NIL T T
:pinfo APPLICATION-SYMBOL-FLAGS (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-FLAGS (STRUCTURE-ELT S 8))) NIL T T
:pinfo COPY-SCOPE-CONTROL-POINT (S) NIL NIL NIL NIL NIL NIL T
:pinfo NO-COLLISION-HASH-SIZE (SYMBOLS) NIL NIL NIL NIL NIL NIL T
:pinfo ANALYZE-SPECIAL-DEF (SYM VALUE TAIL? MV-HOLDER) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TOP-LEVEL-PROC-MAX-TMP-VAR-COUNT!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-MAX-TMP-VAR-COUNT!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-MVALUES-LINE!@$ (S VALUE) NIL (MVALUES T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MVALUES-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-VAR-REF-MV-HOLDER!@$ (S VALUE) NIL (VAR-REF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-REF-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-MV-HOLDER (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo LOOKUP-VARIABLE (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-STATIC-SCOPE-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONSTANT-TAIL?!@$ (S VALUE) NIL (CONSTANT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONSTANT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-BASIC-OPTIONAL-INIT-FORM-EXPRESSION!@$ (S VALUE) NIL (BASIC-OPTIONAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BASIC-OPTIONAL-INIT-FORM-EXPRESSION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FLUID-C-STRUCT-REF-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-C-CODE/6 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME STRING) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-SCOPE-CONTROL-TRANSFER/8 (TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME DESTINATION-POINT UNWIND-COUNT SEND-VALUE) NIL NIL NIL NIL NIL NIL T
:pinfo ADD-COMPILER-METHOD (NAME INS OUTS IN-TYPES OUT-TYPES NEW-FUNCTION TRANSFORM) NIL NIL NIL NIL NIL NIL T
:pinfo TRANSLATE-HOST-PACKAGE (PACKAGE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SCOPE-SEQ-BODY!@$ (S VALUE) NIL (SCOPE-SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SCOPE-SEQ-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-SWITCH-TEST!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-TEST!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo MAKE-DYNAMIC-SCOPE-CONTROL-POINT (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (RECEIVE-VAR NIL) (TAG-NAME NIL)) NIL NIL NIL (LAMBDA (&KEY (TAIL? NIL) (MV-HOLDER NIL) (OUT-TYPE T) (LINE *CURRENT-LINE*) (RESULT-NAME NIL) (NAME NIL) (PARENT NIL) (REFS NIL) (ID NIL) (RECEIVE-VAR NIL) (TAG-NAME NIL)) (DECLARE) (BLOCK MAKE-DYNAMIC-SCOPE-CONTROL-POINT (MAKE-DYNAMIC-SCOPE-CONTROL-POINT/11 TAIL? MV-HOLDER OUT-TYPE LINE RESULT-NAME NAME PARENT REFS ID RECEIVE-VAR TAG-NAME))) NIL T T
:pinfo SET-C-STRUCT-OP-FIELD!@$ (S VALUE) NIL (C-STRUCT-OP T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-OP-FIELD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo FORM-NAME (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-INLINE-MV-CALL (S) NIL NIL NIL NIL NIL NIL T
:pinfo MACHINE-LINKER-COMMAND (S) NIL (MACHINE) NIL (LAMBDA (S) (DECLARE) (BLOCK MACHINE-LINKER-COMMAND (STRUCTURE-ELT S 5))) NIL T T
:pinfo C-STRUCT-REF-NAME (S) NIL (C-STRUCT-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-REF-NAME (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-CONFIG-CC-DEBUG-INFO?!@$ (S VALUE) NIL (CONFIG T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONFIG-CC-DEBUG-INFO?!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo LISP-ARRAY-TYPE->C-TYPE-OBJECT (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo SCOPE-SEQ-BODY (S) NIL (SCOPE-SEQ) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-SEQ-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo CATCH-CONTROL-POINT-TAIL? (S) NIL (CATCH-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK CATCH-CONTROL-POINT-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-PROC-MAX-TMP-VAR-COUNT!@$ (S VALUE) NIL (PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROC-MAX-TMP-VAR-COUNT!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo ROOT-LOAD (F) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SWITCH-MV-HOLDER!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-SEQ-BODY!@$ (S VALUE) NIL (SEQ T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SEQ-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-NAMED-LOCAL-RESULT-NAME!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo MAKE-APPLICATION-SYMBOL/8 (SYM USED-AS-DATA? VALUE PLIST C-NAME FUNCTION HASH-CODE FLAGS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VARIABLE-VAR-INNERMOST-PROC!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-INNERMOST-PROC!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo DYNAMIC-TAG-CONTROL-POINT-PARENT (S) NIL (DYNAMIC-TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-TAG-CONTROL-POINT-PARENT (STRUCTURE-ELT S 7))) NIL T T
:pinfo KEY-VAR (S) NIL (KEY) NIL (LAMBDA (S) (DECLARE) (BLOCK KEY-VAR (STRUCTURE-ELT S 1))) NIL T T
:pinfo FLUID-C-STRUCT-OP-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TOP-LEVEL-PROC-RESULT-NAME!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-INLINE-MV-CALL-RESULT-NAME!@$ (S VALUE) NIL (INLINE-MV-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INLINE-MV-CALL-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo VAR-OP-LINE (S) NIL (VAR-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-OP-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-C-CODE-RESULT-NAME!@$ (S VALUE) NIL (C-CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-CODE-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo INNER-PROC-BODY (S) NIL (INNER-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK INNER-PROC-BODY (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-DYNAMIC-BLOCK-CONTROL-POINT-LINE!@$ (S VALUE) NIL (DYNAMIC-BLOCK-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-BLOCK-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FOREIGN-CALL-TAIL? (S) NIL (FOREIGN-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-CALL-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo OPTIONAL-INIT-FORM (S) NIL (OPTIONAL) NIL (LAMBDA (S) (DECLARE) (BLOCK OPTIONAL-INIT-FORM (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-NAMED-LOCAL-BODY!@$ (S VALUE) NIL (NAMED-LOCAL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-LOCAL-BODY!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo VAR-INFO-RESTV-VAR (S) NIL (VAR-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-INFO-RESTV-VAR (STRUCTURE-ELT S 5))) NIL T T
:pinfo SCOPE-CONTROL-POINT-REFS (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-REFS (STRUCTURE-ELT S 8))) NIL T T
:pinfo CONSTANT-LINE (S) NIL (CONSTANT) NIL (LAMBDA (S) (DECLARE) (BLOCK CONSTANT-LINE (STRUCTURE-ELT S 4))) NIL T T
:pinfo TAG-CONTROL-POINT-MV-HOLDER (S) NIL (TAG-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK TAG-CONTROL-POINT-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-MACHINE-SHARED-LIBRARIES!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-SHARED-LIBRARIES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-CONSTANT-OUT-TYPE!@$ (S VALUE) NIL (CONSTANT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONSTANT-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-VAR-DEF-OUT-TYPE!@$ (S VALUE) NIL (VAR-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-DEF-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo DYNAMIC-BLOCK-CONTROL-POINT-NAME (S) NIL (DYNAMIC-BLOCK-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK DYNAMIC-BLOCK-CONTROL-POINT-NAME (STRUCTURE-ELT S 6))) NIL T T
:pinfo COPY-PROC-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo C-STRUCT-OP-TAIL? (S) NIL (C-STRUCT-OP) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-OP-TAIL? (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-LINE!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SWITCH-RESULT-NAME (S) NIL (SWITCH) NIL (LAMBDA (S) (DECLARE) (BLOCK SWITCH-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-IF-OUT-TYPE!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-OUT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SCOPE-CONTROL-POINT-RECEIVE-VAR (S) NIL (SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK SCOPE-CONTROL-POINT-RECEIVE-VAR (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-VAR-NUM-DEFS!@$ (S VALUE) NIL (VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-NUM-DEFS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-C-COMPILER-DEBUG-OPTIMIZED?!@$ (S VALUE) NIL (C-COMPILER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-COMPILER-DEBUG-OPTIMIZED?!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo ARRAY-TYPE->TYPE-CODES (ARRAY-SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TOP-LEVEL-PROC-OE-VARS!@$ (S VALUE) NIL (TOP-LEVEL-PROC T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TOP-LEVEL-PROC-OE-VARS!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
:pinfo APPLICATION-SYMBOL-USED-AS-DATA? (S) NIL (APPLICATION-SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK APPLICATION-SYMBOL-USED-AS-DATA? (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-MACHINE-LINK-LIBRARIES!@$ (S VALUE) NIL (MACHINE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACHINE-LINK-LIBRARIES!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-SWITCH-CONSEQUENTS!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-CONSEQUENTS!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo FUNCTION-AND-METHOD-INFO-METHODS (S) NIL (FUNCTION-AND-METHOD-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-AND-METHOD-INFO-METHODS (STRUCTURE-ELT S 8))) NIL T T
:pinfo LOAD-PPRINT NIL NIL NIL NIL NIL NIL NIL T
:pinfo FUNCTION-INFO-OUT-TYPES (S) NIL (FUNCTION-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-INFO-OUT-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-MVALUES-RESULT-NAME!@$ (S VALUE) NIL (MVALUES T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MVALUES-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo NAMED-CALL-RESULT-NAME (S) NIL (NAMED-CALL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-CALL-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo C-STRUCT-INFO-SLOTS (S) NIL (C-STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-INFO-SLOTS (STRUCTURE-ELT S 2))) NIL T T
:pinfo ANALYZE-TAGBODY (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-VAR-INFO-REST-VAR!@$ (S VALUE) NIL (VAR-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VAR-INFO-REST-VAR!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-IF-TEST!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-TEST!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-C-CODE-LINE!@$ (S VALUE) NIL (C-CODE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-CODE-LINE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-UNWIND-PROTECT-TAIL?!@$ (S VALUE) NIL (UNWIND-PROTECT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNWIND-PROTECT-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STATIC-SCOPE-CONTROL-POINT-ID (S) NIL (STATIC-SCOPE-CONTROL-POINT) NIL (LAMBDA (S) (DECLARE) (BLOCK STATIC-SCOPE-CONTROL-POINT-ID (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-CATCH-CONTROL-POINT-MV-HOLDER!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo VAR-REF-MV-HOLDER (S) NIL (VAR-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-REF-MV-HOLDER (STRUCTURE-ELT S 2))) NIL T T
:pinfo C-STRUCT-DEF-INFO (S) NIL (C-STRUCT-DEF) NIL (LAMBDA (S) (DECLARE) (BLOCK C-STRUCT-DEF-INFO (STRUCTURE-ELT S 7))) NIL T T
:pinfo COPY-APPLICATION-PACKAGE (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-C-STRUCT-DEF-NAME!@$ (S VALUE) NIL (C-STRUCT-DEF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-C-STRUCT-DEF-NAME!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-UNNAMED-CALL-MV-HOLDER!@$ (S VALUE) NIL (UNNAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNNAMED-CALL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo LINK-APPLICATION-SYMBOL? (APP-SYMBOL) NIL NIL NIL NIL NIL NIL T
:pinfo VAR-REF-RESULT-NAME (S) NIL (VAR-REF) NIL (LAMBDA (S) (DECLARE) (BLOCK VAR-REF-RESULT-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-DYNAMIC-TAG-CONTROL-POINT-RESULT-NAME!@$ (S VALUE) NIL (DYNAMIC-TAG-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DYNAMIC-TAG-CONTROL-POINT-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo FLUID-LIBRARY-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TAG-CONTROL-TRANSFER-RESULT-NAME!@$ (S VALUE) NIL (TAG-CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TAG-CONTROL-TRANSFER-RESULT-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-VARIABLE-VAR-DEFINITE-TYPE!@$ (S VALUE) NIL (VARIABLE-VAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-VAR-DEFINITE-TYPE!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo TOP-LEVEL-PROC-VOLATILE (S) NIL (TOP-LEVEL-PROC) NIL (LAMBDA (S) (DECLARE) (BLOCK TOP-LEVEL-PROC-VOLATILE (STRUCTURE-ELT S 15))) NIL T T
:pinfo NAMED-LOCAL-OUT-TYPE (S) NIL (NAMED-LOCAL) NIL (LAMBDA (S) (DECLARE) (BLOCK NAMED-LOCAL-OUT-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo FLUID-C-CODE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SWITCH-TAIL?!@$ (S VALUE) NIL (SWITCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SWITCH-TAIL?!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo INITIALIZE-COMPILER NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-PRIMITIVE-CALL-MV-HOLDER!@$ (S VALUE) NIL (PRIMITIVE-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PRIMITIVE-CALL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-CONTROL-TRANSFER-DESTINATION-POINT!@$ (S VALUE) NIL (CONTROL-TRANSFER T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-TRANSFER-DESTINATION-POINT!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FLUID-DYNAMIC-SCOPE-CONTROL-POINT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-NAMED-CALL-MV-HOLDER!@$ (S VALUE) NIL (NAMED-CALL T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-NAMED-CALL-MV-HOLDER!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FUNCTION-VAR-DECLARED-OK-TO-IGNORE? (S) NIL (FUNCTION-VAR) NIL (LAMBDA (S) (DECLARE) (BLOCK FUNCTION-VAR-DECLARED-OK-TO-IGNORE? (STRUCTURE-ELT S 3))) NIL T T
:pinfo COPY-LEX-ENV (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-SWITCH (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CATCH-CONTROL-POINT-NAME!@$ (S VALUE) NIL (CATCH-CONTROL-POINT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CATCH-CONTROL-POINT-NAME!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FOREIGN-INFO-OUT-TYPES (S) NIL (FOREIGN-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK FOREIGN-INFO-OUT-TYPES (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-IF-INLINE-TEST?!@$ (S VALUE) NIL (IF T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-IF-INLINE-TEST?!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-FUNCTION-AND-METHOD-INFO-META-EVAL-FUNCTION!@$ (S VALUE) NIL (FUNCTION-AND-METHOD-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FUNCTION-AND-METHOD-INFO-META-EVAL-FUNCTION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-VARIABLE-INFO-CONSTANT-EXPR!@$ (S VALUE) NIL (VARIABLE-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-VARIABLE-INFO-CONSTANT-EXPR!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T